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ABSTRACT 

The  study  of  human  driving  of  automotive  vehicles  is  an  important  aid  to  the 
development  of  viable  autonomous  vehicle  navigation  techniques.  Observation  of 
human  behavior  during  driving  suggests  that  this  activity  involves  two  distinct 
levels,  the  conscious  and  the  unconscious. 

Conscious  actions  relate  to  the  logical  behavior  of  a  driver  such  as  stopping 
the  vehicle  when  a  traffic  light  is  red.  siowing  down  the  vehicle  when  it  turns  a 
bend.  etc.  Such  behavior  can  be  described  using  natural  human  language.  The 
unconscious  actions  of  a  driver  are  much  less  obvious.  There  are  many  such 
activities  occurring  while  we  are  driving  a  vehicle  to  a  particular  destination.  One 
of  the  important  unconscious  efforts  involves  the  selection  of  successive  points  on 
the  road  to  steer  the  vehicle  towards  in  order  to  achieve  the  desired  road-following 
behavior.  This  research  work  attempts  to  mimic  this  unconscious  behavior 
through  the  use  of  a  computer  simulation  model. 
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I.    INTRODUCTION 

A.    GENERAL  BACKGROUND 

Today  there  are  many  robots  employed  all  over  the  world,  especially  in  the 
USA  and  Japan,  to  do  various  kinds  of  industrial  work.  The  beneiits  realizable 
through  the  use  of  these  robots  are  numerous,  easily  attained,  and,  most 
importantly,  proven.  However,  most  of  these  industrial  robots  either  lack  any 
external  sensory  mechanisms  or  have  only  a  few  unsophisticated  sensors  jRefs.  1- 

n  1 

Ol  . 

Robots  that  do  not  have  any  external  sensors  normally  operate  from  a  fixed 
position.  They  are  programmed  to  perform  a  series  of  movements  tc  accomplish  a 
desired  task.  Once  programmed,  these  robots  repeat  the  programmed  movements 
as  many  times  as  desired,  accurately  and  precisely,  regardless  of  the  external 
environment. 

The  other  kind  of  robot,  the  kind  equipped  with  a  few  unsophisticated 
sensors,  is  able  to  perform  limited  sensing  of  the  environment.  Such  a  robot  is 
capable  of  adapting  to  simple  and  small  changes  in  the  operating  environment 
such  as  stopping  when  an  unexpected  object  crosses  into  its  path. 

With  the  advent  of  the  information  age  and  microprocessor  technologies,  yet 
another  kind  of  robot  is  becoming  realizable.  These  kind  of  robots  are  called 
autonomous  robots.    Such  robots  are  capable  of  making  their  own  decisions  and 


adapting  quickly  and  safely  "on-the-fly"  to  accomplish  a  mission  [Refs.  4-5].  Such 
robots  can  either  operate  from  a  fixed  position  or  from  a  mobile  platform.  In  the 
case  of  mobile  robots,  the  system  can  also  be  capable  of  avoiding  obstacles  along 
its  navigation  path.  In  this  respect,  a  human  being  can  be  considered  to  be  an 
extreme  example  of  an  ideal  autonomous  robot. 

Humans  receive  information  about  their  environment  from  two  groups  of 
sensors  [Ref.  6].  One  group  provides  conscious  sensing  and  the  other  group 
provides  subconscious  sensing.  The  first  sensing  group  comprises  the  five  basic 
human  sense  organs:  ears.  nose,  mouth,  touch  and  eyes.  Each  of  these  sensors  has 
a  specialized  processor  attached  to  it  which  analyzes  the  sensor  input.  This  is 
especially  so  with  the  eyes  which  provide  humans  with  one  of  the  most  complex 
vision  systems  found  in  nature.  A  human  is  able  to  identify  different  objects 
under  a  wide  variety  of  environmental  conditions  such  as  varying  viewing 
distance,  viewing  angle,  brightness,  contrast,  etc. 

The  second  group  of  sensors  provides  proprioceptive  information,  which 
according  to  Thring  [Ref.  7],  gives  an  overall  internal  model  of  our  body.  It  also 
provides  inertial  information  from  the  vestibular  system  that  senses  body 
orientation,  balance,  and  rotation. 

All  information  received  by  the  five  basic  sensors  is  sent  to  the  highly  complex 

cerebral  cortex  which  acts  as  the  central  processor  of  the  entire  system  [Ref.  7]. 

After  processing  the  various  sensory  inputs,  the  cerebral  cortex  sends  signals  to  all 

parts  of  the  body  including  the  cerebellum  [Ref.  7]. 
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The  cerebellum  is  the  chief  coordinator  of  our  motion  system.  Besides 
receiving  information  from  the  cerebral  cortex  about  what  movements  are 
required,  it  also  receives  information  from  the  vestibular  system  and  the 
proprioceptors  in  order  to  be  able  to  command  muscular  movements  [Ref.  7]. 

The  above  oversimplified  discussion  of  an  ideal  autonomous  robot  is  intended 
to  illustrate  the  complexities  involved  in  building  a  real  autonomous  mobile  robot. 
It  must  have  a  very  elaborate  and  sophisticated  sensory  mechanism,  numerous 
high-speed  information  processors  working  in  parallel,  and  a  very  large  and 
sophisticated  controlling  software  system  in  order  to  achieve  complete  autonomy. 

Finaily.  human  beings  acnieve  their  mobility  mainly  througn  a  pair  of  legs. 
but  this  is  not  necessarily  so  for  an  autonomous  mobile  robot.  There  are  many 
ways  for  an  autonomous  mobile  robot  to  achieve  mobility  on  land.  For  local 
motion  the  alternatives  are  wheeled  systems,  tracked  systems  and  legged  systems 
[Ref.  8].  Of  the  three,  the  legged  system  is  probably  the  most  flexible  but  also  the 
least  understood  method.  There  is  a  great  deal  of  research  currently  underway  on 
walking  machines  [Refs.  8-12]. 

Several   attempts   to   build   an   autonomous   wheel-based  mobile   robot  were 

carried  out  as  early  as  the  1960's  [Ref.  13].    However,  none  of  this  research  was 

able  to  deliver  a  completely  autonomous  robot.    Some  of  these  earlier  works  will 

be  discussed  in  Chapter  II.  A  number  of  research  projects  that  are  currently  being 

carried  out  seem  to  be  much  more  successful  than  their  predecessors.    The  main 

reason  for  this  could  be  that  their  predecessor's  failures  had  prompted  several 
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related  smaller  research  studies  in  areas  such  as  sensor  hardware,  machine  vision, 
and  computer  architectures  to  be  carried  out  instead.  The  results  of  these  research 
efforts  are  now  being  consolidated  into  the  latest  autonomous  vehicle  projects. 

One  of  the  areas  which  has  received  relatively  little  attention  in  previous  and 
current  research  work  on  autonomous  vehicles  is  that  of  human  navigation  and 
driving.  This  area  may  be  pertinent  to  the  viability  of  the  future  of  autonomous 
vehicles,  especially  those  on-road  and  wheeled-based.  The  objective  of  this  work 
is  to  investigate  and  mimic  a  human  driver  driving  a  conventional  automobile. 

3.     ORGANIZATION 

Chapter  II  reviews  some  of  the  early  research  projects  on  autonomous  mobile 
robots  done  in  the  iate  L960's.  Much  of  this  work  provides  the  necessary 
background  for  several  autonomous  vehicle  research  projects  that  are  currently 
being  carried  out.  Some  of  these  later  research  projects  are  also  summarized  in 
this  chapter. 

The  objective  of  this  research  work  in  relation  to  autonomous  vehicles  is 
discussed  in  greater  depth  in  Chapter  III.  In  this  chapter,  some  of  the  basic 
aspects  of  conventional  automotive  vehicle  mechanics  are  also  explained.  This  is 
to  show  that  the  graphics  simulation  built  for  this  study  ignores  many  complex 
interactions  that  occur  between  a  vehicle  and  its  environment  when  the  vehicle  is 
moving.  That  is,  a  number  of  simplifying  assumptions  are  made  in  this  chapter 
so  as  to  make  the  graphics  simulation  more  feasible  within  the  time  constraints  of 
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this  study.  The  mathematical  model  used  for  the  graphics  simulation  is  also 
derived  and  described  in  Chapter  III. 

The  entire  graphics  simulation  is  implemented  in  C.  The  functions  of  the 
various  modules  developed  for  the  simulation  are  described  in  Chapter  IV.  This 
chapter  elaborates  the  overall  software  design  strategy  and  the  important  issues 
that  must  be  addressed  when  the  software  is  to  be  improved  or  modified.  The 
procedure  for  changing  various  vehicle  gains  is  also  described  in  this  chapter. 

Numerous  experiments  were  conducted  with  the  simulation  moaei  to  support 
the  validity  of  this  work  and  the  mathematical  model  used.  Chapter  V  records 
and  explains  the  results  of  ail  the  experiments  conducted  using  tne  simulation 
model. 

The  last  chapter,  Chapter  VI,  summarizes  the  work  done  and  its  benefit  to 
autonomous  vehicle  research.  Suggestions  about  some  possible  extensions  to  this 
research  work  are  also  given.  This  additional  work  would  make  the  present  study 
more  comprehensive  and  substantiative. 

Chapter  VI  is  followed  by  a  list  of  reference  material  used  for  this  study. 
Finally,  the  graphics  simulation  source  code  is  attached  as  an  appendix. 
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II.    SURVEY  OF  PREVIOUS  WORK 

A.    INTRODUCTION 

Research  in  autonomous  systems  began  as  early  as  the  late  1960"s  >Ref.  13]. 
Many  of  these  early  research  efforts  did  not  fully  materialize,  mainly  because  of 
the  technological  limitations  existing  at  that  time.  The  outcome  of  these 
investigations,  however,  indicated  that  the  complexity  involved  in  certain  areas 
sucn  as  image  processing,  scene  analysis,  planning,  etc..  required  more  work  before 
further  attempts  to  build  autonomous  systems  could  continue. 

Since  then,  major  advances  and  significant  breakthroughs  in  several  areas  of 
technology  have  made  many  tasks  which  were  difficult  to  implement  or  even  not 
possible  in  the  1960's  become  more  feasible.  Improvements  in  VLSI  technology 
allow  very  complex  algorithms  to  be  constructed  in  hardware.  Miniaturization 
reduces  the  overall  weight  of  vehicle  controllers  and  also  greatly  increases 
electronic  speed.  New  techniques  in  image  processing  and  vision  analysis  enable 
very  complex  images  to  be  examined.  More  details  can  now  be  extracted  from 
images  with  these  techniques  than  was  previously  possible  [Refs.  14,15].  New 
computer  architectures  provide  the  massive  computation  power  required  for  real- 
time processing  [Refs.  16,17].  Large  amounts  of  sensor  data  and  images  can  now 
be  reduced  quickly  to  facts  that  are  needed  for  autonomous  decision  making.    New 

techniques    developed    in    artificial    intelligence    provide    more    opportunities    for 

14 


autonomy.     These  techniques  are  capable  of  handling  more  complex  knowledge 
representations  and  manipulations  [Refs.  18,19]. 

B.    AUTONOMOUS  MOBILE  ROBOTS 
1.     Shakey  (1967) 

The  Shakey  project  represented  one  of  the  earliest  attempts  to  study 
autonomous  navigation  using  a  mobile  robot.  Shakey  was  developed  by  Stanford 
Research  Institute  to  study  the  real-time  control  of  a  robot  system  that  interacts 
with  a  complex  environment  [Ref.  13). 

Shakey  moved  around  with  two  independently  controlled  wheels  mounted 
on  both  sides  oi  the  vehicle.  It  had  a  rotatabie  "head"  which  carried  a  vidicon 
camera  wnich  provided  "sight"  ",o  Shakey.  This  head  was  aiso  provided  with  an 
optical  range-finder.  Several  touch  sensors  were  attached  around  the  vehicle  for 
collision  detection  and  avoidance. 

An  SDS-940  computer  was  used  to  control  the  behavior  of  Shakey  using 
two  radio  links.  One  link  was  used  for  telemetry  and  the  other  link  was  used  for 
transmission  of  the  visual  input  from  the  camera  to  the  computer. 

Another  significant  feature  of  this  early  attempt  at  an  autonomous  system 
was  its  man-machine  interface.  Commands  could  be  given  in  primitive  English 
that  was  analyzed  and  translated  into  the  appropriate  machine  actions  by  a  LISP 
program  [Refs.  20,21].  This  feature  also  included  a  simple  question-answer 
capability. 
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Shakey's  world  consisted  of  a  grid  model  and  a  property  list  model.  The 
grid  model  is  a  hierarchically  organized  system  of  four-by-four  grid  cells.  This 
model  was  constantly  updated  by  the  vision  system  and  it  served  primarily  as  a 
free  space  map  used  for  path  planning  and  navigation. 

The  property  list  model  kept  track  of  the  various  characteristics  of  the 
objects  in  its  worid.  Information  about  each  object  such  as  its  coordinates,  size, 
etc.,  gave  Shakey  a  better  sense  of  the  world.  Using  this  model.  Shakey  could 
navigate  to  a  known  object  described  in  the  property  list.  The  model  also 
provided  information  for  collision-free  navigation  around  the  environment. 
2.      Stanford  Cart  (197C1 

The  research  work  for  the  Stanford  Cart  was  carried  out  in  the  Stanford 
University  Artificial  Intelligence  Laboratory  [Ref.  22].  The  only  sensor  installed  on 
the  cart  was  a  camera  remotely  linked  to  a  DEC  KL-10  computer.  The  KL-10 
computer  functioned  as  the  vehicle  controller  and  also  as  an  image  processor. 
After  each  cart  move,  it  received  nine  scene  images  from  a  slide-mounted  camera. 
each  taken  from  a  different  camera  position.  Distinctive  features  were  extracted 
from  the  first  image  and  this  information  was  used  with  the  rest  of  the  images  to 
perform  a  3-D  analysis  of  the  scene  in  front  of  the  cart. 

The  perceived  scene  was  used  by  the  navigation  software  to  compute  a 

collision-free  path  towards  the  goal.    The  collision-free  path  was  determined  by 

translating   obstacles   into   circles   on   the   floor   and   moving   the   cart,   which    is 

represented  by  a  three  meter  circle,  among  these  obstacle  circles. 
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The  Stanford  Cart  was  able  to  maneuver  successfully  in  a  cluttered 
environment.  However,  it  took  a  very  long  time  to  accomplish  its  mission  [Ref. 
22],  typically  requiring  several  hours  to  move  a  few  tens  of  meters.  This  was 
largely  due  to  the  lengthy  3-D  scene  analysis  processing  time  needed  to  determine 
the  next  cart  move. 
3.     Hilare  (1977) 

This  system  was  constructed  in  France  at  the  Laboratoire  d'Automatique 
et  d' Analyse  des  Systemes  in  Toulouse.  The  purpose  of  'he  mobile  robot  was  ;o 
serve  as  a  test  bed  for  general  research  in  robotics  and  in  robot  perception  and 
planning  [Ref.  23]. 

The  Hilare  robot  had  a  3-D  vision  system  consisting  of  a  laser  range- 
finder  and  a  video  camera.  A  set  of  14  ultrasonic  emitters-receivers  provided 
range  data  around  the  robot  for  distances  of  up  to  two  meters,  and  a  variety  of 
other  sensors  provided  other  information  required  for  autonomous  navigation. 

On-board  8085/86  microprocessors  were  used  by  Hilare  to  process  sensor 
inputs.  These  processors  were  remotely  connected  to  an  SEL  32-77/80  computer 
which  handled  navigation  and  coordination.  The  SEL  32  was  in  turn  remotely 
connected  to  another  larger  computer,  an  IBM  30/33,  for  higher  level  planning 
and  control.  A  remote  IBM-370  was  also  used  for  performing  complex  analysis 
tasks. 
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4.     Robart  I  (1980) 

This  robot  was  built  by  LCDR  Hobart  R.  Everett  under  the  supervision 
of  Professor  R.E.  Newton  of  the  Naval  Postgraduate  School's  Department  of 
Mechanical  Engineering.  The  aim  of  this  project  was  to  provide  a  development 
and  demonstration  platform  for  microprocessor-controlled  mechanical  systems 
[Ref.  24].  Patrolling  was  the  main  role  of  this  robot.  It  was  able  to  detect  a 
variety  of  household  dangers  such  as  smoke,  fire,  toxic  gas.  flooding  conditions,  or 
intrusion,  and  was  capable  of  chen  informing  the  user  appropriately. 

The  Robart  I  system  moved  around  on  a  tricycle  wheelbase  with  front 
wheel  control.  It  had  a  rotating  ''head"  for  scanning  the  environment.  One  of 
the  major  and  important  sensors  missing  from  this  robot  is  vision.  Lacking  vision, 
it  had  a  forward-looking  ultrasonic  ranging  unit,  a  long-range  near-infrared 
proximity  detector,  ten  short-range  near-infrared  proximity  detectors,  tactile 
feelers,  and  bumper  switches.  The  last  two  groups  of  sensors  were  used  for 
collision  detection  and  avoidance. 

To  detect  a  person,  the  robot  had  a  true-infrared  (long  wavelength 
infrared)  body  heat  sensor.  This  sensor  had  a  range  of  about  fifty  feet.  The  robot 
was  also  able  to  steer  towards  the  center  of  a  doorway  with  the  help  of  a  near- 
infrared  long-range  proximity  sensor.  It  also  had  an  assortment  of  other  sensors 
for  detecting  flooding,  fire,  smoke  and  toxic  gas  conditions. 

A  surprising  addition  to  this  mobile  robot  was  its  speech  capability  with  a 

two  hundred  and  eighty  word  vocabulary.    This  allowed  the  robot  to  use  voice 
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communication  to  inform  the  user  of  any  dangerous  conditions.    It  also  made  use 
of  this  facility  to  report  some  of  its  internal  status  information. 

The  only  computing  machinery  installed  on  Robart  I  was  a  SYM-1 
microcomputer.  This  on-board  computer  used  a  6502  microprocessor  to  which  all 
the  robots  sensors  were  connected  except  for  the  speech  synthesizer  which  had  its 
own  dedicated  processor. 

During  normal  operation,  Robart  I  moved  straight  ahead  and  stopped  at 
various  points  to  perform  surveillance.    However,  when  an  obstacle  was  detected. 
it  would  move  :o  tne  left  or  right  depending  on  which  was  appropriate  and  then 
continue  its  straight  ahead  movement. 
5.      Robart  II  (1982) 

Robart  II  is  an  improved  version  of  Robart  I  [Ref.  25].  The  basic  purpose 
of  this  new  robot  remains  the  same  as  for  Robart  I.  However,  not  only  are  there 
more  sensors  on  Robart  II.  but  the  number  of  different  types  of  sensors  installed 
also  has  been  increased.  This  machine  currently  has  six  ultrasonic  range-finders, 
fifty  near-infrared  proximity  detectors,  a  long  range  near-infrared  range-finder, 
and  various  other  sensors  used  to  detect  smoke,  fire,  toxic  gas,  flooding  conditions 
and  intrusion. 

The  previous  Robart  used  only  one  microcomputer  for  all  of  its  processing 

requirements,  which  proved  to  be  insufficient.    Robart  II  has  eight  65C02-based 

microcomputers  to  handle  the  increased  number  of  sensors  and  also  to  provide 

more  parallel  processes  to  make  it  more  responsive. 
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The  eight  microprocessors  of  Robart  II  are  connected  in  a  hierarchical 
fashion,  each  with  a  dedicated  function  to  perform.  The  head,  the  drive  motors, 
and  the  vision  subsystem  are  each  handled  by  a  dedicated  processor.  The  sonar 
and  the  speech  subsystem  are  each  handled  by  another  hierarchy  of  two 
processors.  All  these  processors,  however,  work  under  the  direction  of  the  SYM-1 
computer. 

C.    AUTONOMOUS  LAND  VEHICLES 

I.      FMC  Corporation  Autonomous  Vehicle  (1985) 


The  vehicie  used  in  this  project  is  a  10-ton  M113A2  armored  personnel 
carrier,  which  is  a  "racked  vehicle  rather  than  a  conventional  wheeled  vehicle. 
The  vehicle  carries  an  inertial  navigation  system,  a  vehicle  controller  computer,  a 
sonic  imaging  sensor,  and  a  master  control  computer.  Beside  this,  a  remotely 
located  control  trailer  contains  a  Symbolics  3600  Lisp  machine  for  the  Planner 
software,  a  Sun  workstation  for  the  Mapmaker-Observer-Pilot,  an  IBM  PC  for 
sonic-sensor  post-processing,  and  appropriate  communications  equipment  [Ref. 
26]. 

The  FMC  vehicle  control  software  consists  of  five  major  interconnected 
subsystems  that  are  called  Planner,  Observer,  Mapmaker,  Pilot,  and  Vehicle 
Control  [Ref.  26].  Each  of  these  subsystems  has  a  well-defined  and  important 
function  to  perform.  Together  they  make  the  FMC  model  one  of  the  most 
advanced  and  successful  autonomous  land  vehicles. 
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The  FMC  autonomous  vehicle  world  is  represented  by  digitized  maps. 
These  maps  have  terrain  elevation  and  feature  information  that  is  used  by  the 
Planner.  The  primary  role  of  the  Planner  is  to  generate  segmented  "freeways" 
defining  free  space  from  the  starting  position  to  the  destination  [Ref.  27].  The 
Planner  is  also  capable  of  accepting  mission  requirements  to  decide  the  global 
path.  Such  requirements  may  include  minimizing  detection  of  the  vehicle  by  the 
enemy.  Another  possibility  is  to  minimize  the  time  or  energy  involved  to 
accomplish  the  mission. 

The  segmented  freeway  is  used  by  the  Observer.  The  Observer  makes  use 
of  various  sensors  such  as  a  sonic  imaging  sensor  for  obstacle  detection  and  an 
inertial  iand-navigation  system  for  calculating  position  and  heading.  With  the 
input  from  the  Planner  and  data  from  the  sensors,  the  Observer  derives  a  more 
usable  plan  for  the  next  subsystem,  the  Mapmaker. 

The  Mapmaker  generates  the  Pilot  Map  containing  the  vertices  of  a 
polygonal  representation  of  the  global  path  border,  nearest  obstacle  borders,  and 
sensor  visibility  limits.  This  is  achieved  by  combining  the  Observer's  input  with 
the  Obstacle  Map.    The  latter  is  the  product  of  the  sonic  imaging  sensor. 

The  Pilot  Map  is  very  detailed  but  also  very  localized.  It  is  used  by  the 
Pilot  whose  main  responsibility  is  to  guide  the  vehicle  along  an  optimum  path 
that  is  determined  dynamically.  To  determine  the  optimum  path,  the  Pilot 
generates  several  subpaths  that  are  weighted  according  to  certain  criteria.    Once 
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the  optimal  path  is  picked,  the  Pilot  issues  the  necessary  instructions  to  the  final 
subsystem,  the  Vehicle  Controller,  for  actual  execution. 

A  substantial  amount  of  effort  has  been  placed  on  the  problem  of  obstacle 
avoidance   in   the   FMC   program.     When   an   obstacle   is  encountered,  the  Pilot 
switches  modes.     It  stops  goai-seeking  and  starts  obstacle- following.     When  the 
vehicie  overcomes  the  obstacle,  it  resumes  its  goal-seeking  mode. 
2.     Hughes  Research  Laboratory  Autonomous  Vehicle  (1983) 

The  Hughes  Research  Laboratory  autonomous  vehicie  is  another  state-of- 
the-art  autonomous  system.  Like  the  FMC  model,  it  too  has  a  modei  of  the  world 
in  which  the  autonomous  vehicle  is  going  to  operate.  Mission  requirements  and 
constraints  are  also  accepted  by  the  modei  to  derive  a  plan  for  accomplishing  the 
mission.  Various  sensors  provide  the  required  information  about  the  environment 
for  the  vehicle  to  adapt  dynamically  to  unforeseeable  situations. 

The  entire  system  architecture  of  the  Hughes  system  is  based  on  a 
situation  assessment  module  and  an  action  planning  module  [Ref.  28].  The 
former  uses  available  knowledge  about  the  behavior  and  characteristics  of  a  given 
object.  Together  with  the  interrelation  between  the  various  objects,  it  tries  to 
visualize  the  surrounding  environment.  The  latter  module  does  the  actual 
formulation  of  various  actions  required  to  fulfill  the  mission. 

The    most    notable    difference    of   this    autonomous    vehicle    from    other 

autonomous  vehicle  projects  is  the  method  of  knowledge  representation  and  the 

emphasis  on   applying   artificial   intelligence  techniques.     The  system  uses  three 
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types  of  stereotyped  knowledge  representations  called  special  problem  solvers, 
scripts  and  domain-specific  production  rules  [Ref.  28]. 

The  special  problem  solver  consists  of  four  path  experts  that  decide  which 
path  to  follow.  The  script  based  problem  solver  is  used  to  provide  predetermined 
("canned")  plans  to  solve  problems  that  have  stereotyped  behavior.  The  rule- 
based  system  takes  over  whenever  the  script  system  cannot  produce  the  proper 
actions  to  handle  a  situation. 

The  four  path  experts  are  called  Shortest-path.  Hide.  Feasible-path,  and 
Lost-path.  Each  is  designed  to  cater  to  the  requirements  of  an  autonomous 
vehicle  in  various  situations.  The  Shortest-path  expert  generates  the  shortest 
path  between  two  points  taking  into  account  the  obstacles  between  the  two 
locations.  The  Hide  expert  determines  a  path  with  the  best  concealment 
characteristics.  This  path  minimizes  the  vehicle's  exposure  to  threats.  The 
Feasible-path  expert  uses  heuristics  to  produce  a  path  between  two  locations. 
The  heuristic  procedure  of  this  expert  uses  the  information  the  vehicle  has 
gathered  along  the  path  and  the  information  about  it's  current  environment  to 
decide  a  feasible  path  for  the  vehicle  to  follow.  Finally,  the  Lost-path  module 
generates  a  path  for  the  vehicle  to  explore  and  wander  around  the  area  when  it 
has  no  path  to  the  designated  goal. 

The  hardware  for  the  Hughes  system  includes  a  DEC  20  computer  that 

implements  a  rule-based  system  for  deciding  the  proper  action  for  the  vehicle  to 

follow.   Several  Z80  computers  are  used  to  solve  individual  specialized  problems 
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such  as  finding  the  optimal  path.    Another  processor  generates  commands  to  the 
vehicle  control  computer.    Vision  is  handled  by  an  image  processing  computer.    A 
Lisp  machine  is  used  for  for  vehicle  control.    The  vehicle  carries  a  vidicon  camera, 
ultrasonic  sensors,  touch  sensors,  and  infrared  ranging  sensors. 
3.     Martin  Marietta  Autonomous  Land  Vehicle  (1986) 

The  aim  of  this  project  is  to  demonstrate  the  state  of  the  art  in 
autonomous  navigation  and  tactical  decision  making  [Refs.  29.30].  The  vehicle 
used,  called  the  ALV  (Autonomous  Land  Vehiciei.  is  an  eight-wheeled  all-terrain 
vehicle  from  Standard  Manufacturing,  Inc.  It  is  capable  of  traveling  up  to  18 
mph  on  rough  terrain  and  up  to  45  mph  on  improved  surfaces. 

Mission  goals  and  constraints  specified  to  the  ALV  are  interpreted  by  a 
Reasoning  Subsystem.  The  output  from  the  Reasoning  Subsystem  is  a  set  of 
subgoals  to  be  fulfilled  in  order  to  accomplish  the  mission.  The  Perception 
Subsystem  controls  all  the  sensors  and  generates  a  symbolic  model  of  the 
environment  for  reasoning.  The  model  consists  of  road  boundaries.  Moving  the 
vehicle  along  the  specified  trajectory  is  handled  by  the  Control  Subsystem. 

The  Perception  Subsystem  sensors  consist  of  an  RCA  color  video  CCD 

camera  and  a  laser  range  scanner.    The  image  taken  by  the  camera  is  processed  by 

a  VICOM   image  processor.     The  output  from  this  image  is  a  set  of  2-D  edge 

points  representing  the  two  road  boundaries.    To  generate  a  3-D  scene  model  for 

the  Reasoning  Subsystem,  range  information  from  the  laser  scanner  is  used  by  the 

image  processor  to  compute  the  road  boundaries  in  3-D  vehicle  coordinates. 
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The  Reasoning  Subsystem  consists  of  a  goal  seeker,  a  navigator,  and  a 
knowledge  base.  The  goal  seeker  analyzes  the  mission  given,  and  using  the 
information  in  the  knowledge  base  derives  a  sequence  of  activities  for  the  vehicle 
to  execute  to  achieve  the  goal.  The  navigator  uses  the  3-D  model  from  the 
Perception  Subsystem  to  compute  several  possible  trajectories,  and  uses  two  cost 
functions  to  determine  the  trajectory  for  the  vehicle  to  follow. 

The  pilot,  which  is  part  of  the  Control  Subsystem,  takes  the  specified 
trajectory  the  vehicle  should  follow  and  converts  it  into  a  sequence  of  steering 
commands  to  drive  the  vehicle. 

The  hardware  architecture  used  in  the  ALV  consists  of  an  Intel 
multiprocessor  system  that  has  an  80286/80287  master  processor,  an  80816 
navigation  processor,  an  8086  vehicle  control  processor,  and  an  8089  multichannel 
controller.  The  Perception  Subsystem  is  managed  by  the  VICOM  image 
processor.  However,  this  architecture  will  be  affected  by  plans  to  use  a  more 
advanced  computer,  the  BBN  Butterfly  parallel  computer,  to  manage  the 
increasing  complexity  of  the  Reasoning  Subsystem.  Another  plan  is  to  replace  the 
currently  heavily  loaded  VICOM  image  processor  with  a  CMU  WARP  computer 
[Ref.  29]. 

D.    SUMMARY  AND  CONCLUSIONS 

In    the    control    of   autonomous    land    vehicles,    the    need    for    several    high- 
performance    and    specialized    processing    systems    working    in    parallel    is    fairly 
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obvious.  Without  such  elaborate  hardware,  software,  and  advanced  computer 
architectures,  an  autonomous  vehicle  will  not  be  able  to  fulfill  even  its  most  basic 
requirement,  namely,  to  adapt  quickly  to  environmental  changes. 

Many  varieties  of  sensors,  each  capable  of  providing  the  vehicle  with  a  means 
to  sense  the  environment  in  a  different  manners  are  extremely  important.  An 
autonomous  vehicle's  ability  to  dynamically  modify  its  behavior  depends  on  the 
range  and  the  capability  of  the  various  sensors  installed  in  the  vehicle.  Without 
these  sensors,  autonomy  would  oe  very  difficult  to  achieve  if  not  impossible. 

The  effect  of  various  gam  settings  in  the  vehicle  controller  could  have  a 
significant  impact  on  the  performance  of  an  autonomous  vehicle.  Witn  an 
improper  gain,  it  was  found  in  the  FMC  model  that  the  vehicle  fails  to  behave 
properly  or  performs  poorly  [Ref  26j. 

In  order  to  avoid  the  problem  of  improper  gain  settings,  a  computer 
simulation  allows  the  various  vehicle  controller  gains  to  be  adjusted  easily.  With 
this  facility,  different  types  of  vehicle  behavior  can  be  simulated.  The  effect  of 
these  gain  settings  can  be  realistically  visualized  by  means  of  the  3-D  graphics 
simulation  model. 
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III.  DETAILED  PROBLEM  STATEMENT 

A.  INTRODUCTION 

In  this  chapter,  the  model  used  for  the  3D  graphics  simulation  is  described  in 
detail.  To  assist  a  reader  who  has  no  control  theory  background,  a  brief 
description  of  the  purpose  of  developing  a  mathematical  model  and  its  subsequent 
linearization  is  given. 

The  aim  of  this  research  is  stated  in  the  following  section.  This  serves  as  a 
motivation  for  developing  the  graphics  simulation.  The  reader  should  bear  in 
mind  that  the  hypothesis  used  in  "his  research  has  not  and  may  not  be  proven 
theoretically  correct.  The  answer  to  this  question  requires  much  more  work 
beyond  what  is  presented  in  this  work. 

Many  important  interactions  between  the  vehicle  and  the  environment  when 
the  vehicle  is  moving  have  been  neglected  to  keep  the  complexity  of  the 
mathematical  model  manageable.  However,  a  short  discussion  of  some  of  these 
interactions  is  included  to  give  the  reader  a  better  appreciation  of  the  real 
complexity  involved. 

The  last  section  in  this  chapter  provides  a  detailed  derivation  of  the 
mathematical  model  used.  All  of  the  model  linearization  analysis  is  also 
presented. 
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B.    AIM 

The  aim  of  this  work  is  to  examine  and  study  by  way  of  an  "out  of  the 
vehicle  windshield"  graphics  simulation  model,  a  new  technique  for  autonomous 
vehicle  steering  control.  This  technique  attempts  to  mimic  the  way  a  human 
navigates  his  vehicle  on  the  road. 

The  hypothesis  is  that  a  human  driver  unconsciously  divides  his  route  to  his 
destination  into  "chunks"  of  small  interconnecting  line-of-sight  segments.  These 
segments  are  nor  prepared  a  priori,  but  instead  are  built  dynamically  while 
driving  along  a  road.  It  is  assumed  that  unconscious  planning  determines  the 
distance  of  the  next  road  segment  from  the  current  vehicle  position.  A  point  at 
the  end  of  this  road  segment  is  then  the  driver's  unconscious  subgoal. 

The  location  of  a  subgoal  on  the  road  depends  on  several  factors  such  as  the 
speed  at  which  the  vehicle  is  traveling,  the  road  surface  condition,  the  level  of 
driving  experience  of  the  driver,  and  the  general  nature  of  the  surrounding 
environment.  The  environment  refers  to  situations  such  as  the  traffic  conditions 
in  front  or  behind  the  vehicle,  the  number  of  lanes  available,  and  any  potential 
danger  spots  ahead  such  as  intersections,  road  bends,  etc. 

This  work  assumes  that  near-perfect  vision  is  available  for  the  autonomous 
vehicle  and  that  the  road  is  obstacle-free.  These  seeming  /  unreasonable 
assumptions  were  made  to  allow  the  author  to  concentrate  on  the  aspect  of 
unconscious  driving  rather  than  on  the  problems  of  image  and  vision  processing, 


28 


and  obstacle  avoidance,  where  there  are  currently  numerous  research  activities 
being  carried  out  by  others  [Refs.  14-19]. 

C.    STATE  SPACE  REPRESENTATION 

The  aim  of  studying  dynamic  system  behavior  is  generally  one  of  gaining  an 
understanding  of  the  system,  with  a  view  to  controlling  it  to  satisfy  a  required 
specification  [Ref  31].  A  block  diagram  can  be  used  to  pictorially  represent  the 
system  to  be  controlled.  But  to  perform  any  analysis,  a  quantitative  description  is 
required  and  this  may  not  be  available  from  a  block  diagram.  A  system  can  t>e 
described  quantitatively  asmg  a  set  of  mathematical  expressions  which  is 
commonly  known  as  the  mathematical  model  of  the  system.  The  two  common 
methods  to  describe  a  system  quantitatively  are  the  transfer  junction  method  and 
the  state  space  method  [Ref.  31].  The  latter  technique  is  adopted  in  this  work 
because  it  is  more  appropriate  for  computer  simulation  and  it  is  also  able  to  cope 
with  more  complex  systems  including  nonlinear  effects. 

Most  systems  are  inherently  non-linear  in  nature.  However,  in  many  cases,  a 
linearized  analysis  can  be  performed  to  predict  the  system  behavior  and  to  obtain 
suitable  gain  values  for  the  actual  model.  Linearization  basically  involves 
restricting  the  values  of  the  system  variables  to  sufficiently  small  deviations  from 
a  datum  point;  i.e.,  the  normal  operating  point  of  the  system.  A  linearized 
system  analysis  of  the  vehicle  steering  problem  is  included  in  this  chapter. 
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D.    VEHICLE  MECHANICS 

1.  Motivation 

There  are  many  complex  interactions  occurring  between  a  moving  vehicle 
and  the  environment  that  are  ignored  in  this  simulation.  Some  of  these 
interactions  are  discussed  here  to  provide  fhe  reader  with  some  insight  into  the 
complexity  involved. 

2.  Resistance  to  Motion 

Vehicle  acceleration  arises  when  there  is  tractive  effort  between  the  tires 
and  the  'oad  [Ref  32!.  However,  not  all  the  tractive  effort  is  used  to  provide 
acceleration:  rather,  a  certain  proportion  of  this  effort  is  needed  ro  overcome 
resistance  to  motion.  The  main  sources  of  resistance  to  motion  are  air  resistance, 
rolling  resistance,  and  gradient  resistance. 

The  amount  of  air  resistance  depends  on  numerous  factors.  The  vehicle 
shape,  size  and  its  velocity  are  some  of  these  factors.  The  interaction  of  the  tires 
and  the  road  surface  give  rise  to  rolling  resistance  which  depends  upon  factors 
such  as  vehicle  velocity,  vehicle  load,  and  the  type  of  road  surface.  Gradient 
resistance  arises  only  when  the  vehicle  climbs  a  slope.  The  amount  of  gradient 
resistance  is  directly  proportional  to  the  steepness  or  gradient  of  the  slope  it  is 
overcoming. 

3.  Slip  Angle 

When  a  wheel  is  rolling,  it  is  acted  upon  by  a  side  force  due  to  imperfect 

contact  between  the  tires  and  the  road  surface.    The  angular  difference  between 
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the  direction  of  motion  and  true  wheel  rolling  direction  is  called  the  slip  angle 
[Ref.  33].    When  a  vehicle  is  cornering,  depending  on  the  sign  of  the  slip  angle, 
the  vehicle  may  understeer  or  oversteer. 
4.     Brakes 

The  amount  of  braking  effort  required  is  related  to  the  load  carried  by  the 
wheels  and  the  coefficient  of  friction  of  the  road  surface.  Another  important 
consideration  is  the  location  of  brakes.  When  brakes  are  applied  while  a  vehicle  is 
cornering,  computation  of  the  braking  effort  is  more  complex.  This  is  due  to  the 
side  forces  acting  on  the  wheels  when  the  vehicle  is  cornering. 

E.  VISION  MODEL 

The  vision  modei  used  in  this  graphics  simulation  is  extremely  simple.  The 
model  consists  of  a  set  of  road  points  representing  the  center  of  the  entire  road 
circuit.  When  the  vehicle  is  operating  in  the  autopilot  mode,  it  "sees"  these 
points  down  the  road,  one  of  which  is  selected  to  be  the  new  target  point  for  the 
vehicle  to  steer  towards. 

F.  SIMULATION  MATHEM  ,TICAL  MODEL 

1.     A  Simplified  Planar  Dynamic  Model  For  Manual  Control 

The  notation  used  in  this  work  will  follow  as  closely  as  possible  to  that 
adopted  by  Frank  and  McGhee  [Ref.  34].  A  top  view  of  the  vehicle  is  shown  in 
Figure  3.1. 
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Vehicle 
(Xe;  Ye)v 


Target,  (Steering  Point) 


d  =  vT 


E 


Figure  3.1  Top  View  Of  The  Vehicle 
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The  vehicle  will  be  confined  to  a  flat  road  surface.  Therefore  z  =  0,  z  = 
0,  and  the  position  vector  can  be  collapsed  to  a  two-dimensional  vector.  The 
rotational  moment  of  inertia  is  ignored.  This  means  that  the  vehicle  is  idealized 
to  a  point  mass.  To  further  simplify  the  model,  it  is  assumed  that  the  velocity 
vector  always  lies  along  the  vehicle  x  axis:  i.e..  no  sideslip  angle  is  allowed. 
Finally,  it  is  assumed  that  the  vehicle  turning  rate.  u\  is  linearly  proportional  to 
the  forward  velocity  and  to  the  steering  wheel  angle,  6.    That  is. 

ib  =  k;s0x  (3.1) 

To  calculate  the  associated  rurning  radius.   R.   note  that  the  time  to  rotate  the 
vehicle  through  an  angle  2t  is 

2rr  2~ 

h*  =  -J-  =  .  (3.2) 

\t/>\         k^Oxl  *      > 

while  the  distance  traveled  in  this  time  is 

d  =  27ti?  =  |  x\  t2n  (3.3) 

Thus 


2tt  k^\0x\  kJ6\  V       I 

Or 


*+~  R\e\ 


(3.5) 
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This  equation  shows  that  large  values  for  k,  correspond  to  "stiff1  steering  while 
small  values  correspond  to  "sloppy"  steering. 

Longitudinal   control   modeling   accelerator  control    [Refs.    35,36]    can  be 
approximated  by 

z  =  —  \xc  ~  x  \  3.6) 

where  xc  is  the  command  velocity,  which  in  turn  is  a  function  of  the  accelerator 
depression  angle,  and  ra  is  the  acceleration  time  constant.  It  is  easily  shown  that 
for  a  step  change  in  xc  at  t  =  t0  ,  the  resulting  velocity  profile  is 

t-t0 


x(t)  =  x(i0)  +  (ie{t)  -  x(t0))e      T'  3-7) 

Combining  all  of  the  above  results,  a  suitable  state  vector  for  this  system 


is 


X  =  ixE<  VEi  x'  0)  (3-8) 
If  the  control  vector  ,  provided  by  the  human  operator  is  defined  as 

u  =  (xc,0)T  (3.9) 
then,  from  the  above  analysis,  the  component  form  of  the  state  equation  is: 

x(l)  =  xE  =  x  cos  p  =  x(3)  cos  x(4)  (3.10) 

x(2)  =  yE  =  x  sin  xb  =  x(3)  sin  x(4)  (3.11) 
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i(3)  =  x  =  -  — x{3)  +  —  u(l)  (3.12) 


f  7" 

'a  'a 


x(4)  =  V  =  ^  x(3)  u(2)  (3.13) 

For  manual  control.  u(t)  is  provided  by  the  human  operator.  Eq.  (3.10  - 
3.13)  can  then  be  numerically  integrated  and  provided  to  the  operator  in  the  form 
of  a  graphics  display  to  permit  him  to  guide  the  vehicle  around  a  prescribed 
course.  Note  that  for  practical  vehicles,  both  xc  and  0  must  have  upper  and  lower 
bounds. 

2.      Pursuit  Navigation  and  Small  Angle  Linearization  Analysis 

From  the  previous  analysis,  we  have 

T 

x  —  [xg,  yg,  x,  ip)  (3.15) 

2  =  {xE,  yE,  x,  i/j)T  (3.16) 

For  autopilot  control,  in  the  research  of  this  study,  the  vehicle  forward  velocity  is 
assumed  to  be  constant.    Therefore 

x(3)  -  0  (3.17) 

One  approach  to  steering  the  vehicle  is  to  simply  aim  it  directly  at  the 
current  steering  point.  That  is,  the  vehicle  heading  could  in  principle  be  governed 
by  the  simple  relationship 

0(0  =  <r(t)  (3.18) 

Such  a  steering  law  is  sometimes  called  pure  pursuit   navigation.     Obviously,  if 
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pure  pursuit  navigation  could  be  realized,  the  vehicle  would  pass  directly  through 
each  steering  point.  However,  this  does  not  fit  the  model  of  this  chapter  in  which 
the  steering  point  is  at  a  constant  distance  d  ahead  of  the  vehicle.  A  potential 
solution  to  this  problem  is  to  differentiate  Eq.  (3.18)  to  obtain 

ip{t)  =  cr(t)  3.19) 

Unfortunately,  referring  to  Figure  3.1.  it  can  be  seen  that  whenever  p  =  0,  it  will 
also  be  true  that  rr  =  0.  In  this  case,  the  vehicle  will  simpiy  move  parallel  to  the 
road  center  ana  will  nor  turn  toward  it.  To  remedy  this  problem,  an  integral 
term  can  be  added  to  Eq.  (3.19)  resulting  in  the  steering  equation 

xv  =  a  -  ka  [a  -  p  )  .  ka  >  0  (3.20) 

Referring     to      Figure     3.1.     the     "line-of-sight"     angle,     a.     is     given 
mathematical^  bv 


o  =  tan 


|  t  ~  Ye 

XT  -  XE 


(3.21) 


The  corresponding  line-of-sight  rate,  <7,  can  be  approximated  by 


tj  -   f;_! 


o(tj)  =  Jt    _  -      (3.22) 


where  j  is  an  index  associated  with  successive  computation  cycles.    Eq.  (3.20)  will 
be  used  in  the  following  linearized  system  analysis. 
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Referring  again  to  Figure  3.1,  for  the  straight  road  case,  and  using  small 
angle  approximations,  we  have  the  following: 


d  »  yE 


(3.23) 


yE 


a  -  - 


.24) 


d 


(3.25) 


<Je 


w 


i(0) 


(3. 26  J 


ID 


yE 


x(0) 


(3.27) 


Using  Eq.  (3.24)  -  (3.27),  the  vehicle  guidance  law  can  be  written  as 


V 


Ve 


Ve_     _Ve_ 
d 


x(0)    J 


(3.28) 


From  Eq.  (3.13) 


*=k**(3)  "(2) 


(3.29) 


Therefore  the  vehicle  guidance  law  can  also  be  written  as 


u(2)  = 


**  *(S)  k+  *(S) 


d         i(0) 


Ve  +  — y^ 


(3.30) 
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From  Eq.  (3.27)  and  (3.28).  the  linearized  vehicle  control  equation  is 


VE  Ve 

—  =  -  —  +  K 
x  a 


Ve        Ve 
d    ~     x 


(3.31) 


or 


'JE 


—  'Je~  a'.t  'Je  ~~  -  fc<r  He 
a  d 


(3:32) 


As  stated  previously,  for  the  purpose  of  linearized  system  analysis,  it  is  assumed 
that  the  vehicle  steers  toward  a  ooint  located  in  front  of  the  vehicle  at  a  constant 


distance  d  where 


d  =  x 


The  quantity   T  is  called  the  steering  ooint  prediction  time  and  is  evidentiv  given 


bv 


T  =  ± 


:3.34N 


Using  Eq.  (3.33),  Eq.  (3.32)  can  be  re-written  as 


VE 


Ve  ~  -yVE 


(3.35) 


or 


Ve  + 


K  +  -J7 


VE  +  -fVE  =  0 


(3.36) 
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The  characteristic  equation  [Ref.  37]  associated  with  Eq.  (3.36)  is 


A2  +  fcj  A  +  k0  =  0 


(3.37] 


where 


/Cl         I     */T 


T 

I 


'3.38' 


and 


T 


(3.391 


The  corresponding  response  of  the  system  to  initial  condition  errors  is,  for  the  case 


a,/ 


\,t 


y{t)   -  c:e        -  c,e 


(3.40) 


where  A:  and  A2  are  the  roots  of  Eq.  (3.37),  cx  and  c2  are  determined  from  the 
boundary  conditions  y{t0),  y{t0),  and  t0  is  the  time  when  autopilot  is  turned  on. 

Critical  damping  [Ref.  38]  results  when  the  eigenvalues  A2  and  A2  are 
equal,  real,  and  negative.  Critical  damping  implies  the  most  rapid  response 
possible  to  steering  errors  without  overshooting  the  road  center  line  in  response  to 
an  initial  position  error.  From  Eq.  (3.37).  the  system  eigenvalues  are 


A  = ± 

2 


2 


(3.41) 
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Since  critical  damping  results  when  the  second  term  in  this  equation  is  zero,  it 
follows  that 


k0  — 


(3.42) 


Substituting  Eq.  (3.38)  and  Eq.  (3.39)  into  Eq.  (3.42), 


_1       1 
T    "   4 


K  '^ 


(3:4: 


Solving  this  equation  yields  ^he  following  relationship: 


kaT  =  1 


:C.44! 


Using  this  relationship  in  Eq.  (3.41] 


A  ■  =  -k. 


(3.45) 


From  this,  the  system  total  time  constant,  rtotah  [Ref.  38]  is  given  by 


total 


<_1 1_ 

Aj         A2 


(3.46) 


which  means  that  vehicle  position  error  will  be  corrected  to  about  40%  of  its 
initial  value  in  approximately  Ttotat  seconds  [Ref.  39].  As  a  specific  example,  if 
T  =  1  is  chosen,  then  kff  =  1,  A  =  —  1,  and  rtotai  =  2.  Another  example,  if  T  =  2 
is  chosen,  then  ka  =  0.5.  A  =  -0.5,  and  rtotal  =  4.  This  completes  the  derivation 
of  parameter  values  for  this  example  of  a  vehicle  steering  equation. 
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3.     Proportional  Navigation  With  Integral  Term 

In  Chapter  V,  it  is  shown  that  while  pursuit  navigation  performs  as 
predicted  by  the  above  linearization  for  driving  on  a  straight  road,  it  tends  to 
steer  to  the  inside  of  turns  on  a  curved  roadway.  One  way  to  solve  this  problem 
is  to  introduce  an  additional  gain  term.  k^.  which  multiplies  a.  This  result  is  a 
form  of  ■proportional  navigation  fRef.  40]  with  the  addition  of  the  integral  term 
introduced  in  the  previous  section  of  this  chapter. 

In  order  to  determine  a  value  for  fe-  suitable  for  driving  on  a  curved  road, 
it  should  be  noted  that  the  resulting  vehicle  guidance  law  is: 


l& 


c.  =  k^b  -  k^v-w)  (3.47) 

and  that  the  condition  for  steady  turn  is  ip  =  a.    Thus,  in  such  a  situation. 

a  =  fp  =  kjff  +  ka(o-tp)  (3.48) 

so 

\-kb 

a-ip  =  ° a  (3.49) 

K 

From  Figure  3.1,  the  road/vehicle  equation  for  a  curved  road  is 

xE2  +  (yE  -  R)2  =  R2  (3.50) 

or 

xE2  +  VE2  -  2y£i?  =  0  (3.51) 
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which  can  be  approximated  by 

xE2  =  2yER  (3.52) 

Using  small  angle  approximations. 

xE  =  xT  (3.53] 

and  ;nus.  on  a  curved  road  with  raaius  R, 


*E  x2T~ 


VE  = 


2R  2R 


ne  vaiue  :or  a  is  onus  approximately 


'Je         xE         xT 
~        2R        ~2R 


and  to  siay  on  the  road. 

0  =  -f  (3-56) 

Since,  in  a  steady  turn,  c  =  ip,  combining  Eq.  (3.49),  (3.55),  and  (3.56)  it  follows 
that 


xT         l~ki    x 


2R  kff      R 


(3.57) 


or 


l'ki 

T  =  2  (3.58) 


Eq.  (3.58)  is  one  of  the  constraints  for  this  model. 
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4.      Linearized  Analysis  For  Proportional  Navigation 

Using  small  angle  approximations,  with  the  inclusion  of  k-  and  the  road 
curvature,  Eq.  (3.36)  becomes 


r  "  rT  t 


yr  -  Ve        Ue 
xT  x 


(3.59) 


or 


>JE   ~    j  —   ~  Kt 


'Je        ~'Je  — ^'Jt       "zrVT 


3.60! 


The  characteristic  equation  associated  with  ;his  result  is 


a    —  tc-%  a  —  Kn  —  u 


where 


k     =  —  4-  k 

Kl    ~       rp      ~    Ka 


(3.62) 


Kg    — 


(3.63) 


Substituting  constraint  Eq.  (3.58).  it  follows  that 


ft   '  rC^r 

C     v 

1        2(1  -  k.)  ' 


(3.64) 


=  k. 


2(1  -  k.)  +  kt 

2(1  -  y 


(3.65) 
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2  -  k- 

a 

2  -  2k 


(3.66) 


and 


-  2k 


(3.67^ 


Referring  to  Eq.  (3.61' 


A  =  - 


'  (  i      \^ 
_ 

9 


li 


-  «0 


3.681 


O    _     <• 


4  -  4Jfc 


*-*.      I 


4  -  4  A-      I  (4  -  4k) 

7  (J' 


5.69' 


■=  -  A, 


2  -  A- 

±  — i —   [4  -  4A-  +  A?  --  8  +  8it 

4  _  4fc.         4-4A-    I  *        a  * 


1 


(3.70) 


4  -  4Jfc 


(2-y  ±  (a?  +4*.  -4) 


(3.71) 


Thus,  for  the  critical  damping  condition, 


Az   +  4A-  -  4  =  0 

a  a 


(3.72) 
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or 


fc^  =  -  2  ±  \2*  +4 


Solving  Eq.  (3.73)  with  the  constraint  k^  >  0, 


k-  =  0.828 


From  Eq.  (3.71] 


k„  (2  -  k-  ) 
4  -  ~k 

a 


(3.73) 


so  from  Ea.  i  3.74' 


A  =  -  k„  h±-L  =  -  1.703  k^  (3.761 

17  0.688 

and  from  Eq.  (3.58) 

T  =  ^11  «  JL  (3  77] 

ka  oka 


or 

*,r«|  (3.78) 

As  an  example  of  the  application  of  the  above  results,  if  A  =  —  0.5  is  chosen,  then 
ka  =  0.294,  T  =  1.17,  kh  =  0.828.  and  rioial  =  4.  For  another  example,  if  T  =  0.8 
is  chosen,  then  ka  =  0.43,  A  =  -  0.73,  fe-  =  0.828.    and  Ttotal  =  2.7. 
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G.    SUMMARY 

The  aim  of  this  study  is  established.  The  assumptions  made  have  been 
delineated  so  that  a  mathematical  model  can  be  developed  for  the  realization  of  a 
computer  simulation  to  study  both  manual  and  automatic  steering  of  a  highway 
vehicle. 

In  the  next  chapter,  the  main  concern  is  the  actual  implementation  of  the  3D 
graphics  simulation  using  the  mathematical  model  derived  in  this  chapter. 
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IV.    COMPUTER  SIMULATION  MODEL 

A.    INTRODUCTION 

Various  methods  of  implementing  the  mathematical  mode!  developed  in  ^he 
previous  chapter  were  examined  during  the  formulation  of  this  study.  It  was 
finally  decided  that  the  best  way  to  perform  the  simulation  would  be  to  have  a  3D 
color  graphics  animation  model  which  can  be  driven  by  the  user.  One  of  the  most 
suitable  machines  available  at  'he  Naval  Postgraduate  School  for  this  purpose  is 
the  IRIS  (Integrated  Raster  Imaging  System)  color  graphics  system.  A  brief 
description  of  "his  graohics  system  configuration  and  its  hardware  features  is 
given  in  this  chapter. 

In  what  follows,  much  attention  is  devoted  to  the  man-machine  interface  of 
the  simulation.  The  user  can  drive  the  simulation  with  a  mouse  attached  to  the 
graphics  system.  He  can  also  use  the  keyboard  to  turn  on  or  off  certain 
information  displays  concerning  the  status  of  the  simulation. 

A  complete  description  of  all  the  modules  and  supporting  files  which  are  used 
for  the  simulation  is  provided  in  this  chapter  for  those  who  plan  to  study  the 
simulation  in  detail.  A  user  guide  is  also  included,  though  it  is  not  absolutely 
necessary  to  read  it  wholly  in  order  to  run  the  simulation. 
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B.    IRIS-2400  WORKSTATION 

1.     Hardware  And  Overall  System  Description 

The  IRIS  graphics  workstation  installed  in  the  Naval  Postgraduate  School 
Graphics  Laboratory  is  a  high-performance,  high-resolution  1024  x  768  color 
graphics  system.  A  combination  of  custom  VLSI  circuits,  conventional  hardware, 
rirmware.  ana  software  provide  a  very  powerful  set  of  graphics  commands  to 
perform  2D  and  3D  graphics  [Refs.  41-44J.  There  are  currently  two  IRIS  systems 
installed  in  the  laboratory.  Both  systems  are  Unix-based  machine  but  one  system 
has  a  Motorola  MC68010  processor  with  5MB  of  CPL7  memory  while  the  other 
system  nas  a  Motorola  MC68020  processor  with  6MB  of  CPU  memory.  The 
configuration  of  born  IRIS-2400  workstations  consist  of  an  electronic  cat  ner  with 
two  72  MB  Winchester  disk  drives,  an  83-key  up-down  encoded  keyboard,  a 
three-button  mouse,  a  high-resolution  60  Hz  non-interlaced  19-inch  RGB  color 
monitor.  32  bitplanes.  a  hardware  matrix  multiplier  Geometry  Pipeline,  and  a 
floating  point  accelerator. 

The   IRIS   hardware  consists  of  three  pipelined   components.     It   is  this 

design  structure  that  makes  the  IRIS  different  from  many  other  graphics  systems. 

Many  systems  tend  to  implement  their  graphics  capabilities  with  software  that  is 

cheaper.     However,   these  systems  have  much   lower  efficiency   and  much   lower 

performance.    Also  with  these  systems,  the  3D  color  graphics  simulation  model 

would  require  significantly  more  programming  effort  and  time,  not  considering  the 

fact  that  the  final  overall  performance  may  not  be  suitable  for  this  simulation. 
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The  three  pipelined  components  in  the  IRIS  system  are  the  applications/graphics 
processor,  the  Geometry  Pipeline,  and  the  raster  subsystem  [Ref.  41]. 

Graphics  commands  are  processed  by  the  applications/graphics  processor. 
Commands  are  first  sent  through  the  Geometry  Pipeline,  which  performs  matrix 
transformations  on  the  coordinates,  ciips  the  coordinates  to  normalized 
coordinates,  and  scales  the  rransiormed,  dipped  coordinates  to  screen  coordinates. 
The  raster  subsystem  accepts  the  output  of  the  Geometry  Pipeline.  It  fills  in  the 
pixels  between  the  endpomts  of  the  lines,  fills  in  the  interiors  of  polygons,  converts 
character  codes  into  bit-mapped  characters,  and  performs  shading,  depth-cueing, 
and  hidden  surface  removal.  The  system  maintains  a  color  value  for  each  pixel  in 
its  bfcpianes  which  determines  the  image  color  on  the  monitor.  A  total  of  thirty- 
two  bitplanes  allow  color  graphics  images  to  be  presented  in  a  very  realistic  way. 
2.     Programming  Language 

The   IRIS   system  software  is  written  in   C.   but   the   commands   in   the 

graphics  Library  are  callable  in  C,  FORTRAN.  Pascal,  and  Extended  Common 

Lisp  (ExCL).    However,  at  the  time  when  the  simulation  was  implemented,  only 

Pascal  and  C  were  available.    Consequently,  C  was  chosen  to  be  the  programming 

language  for  implementing  the  simulation.    One  of  the  reasons  for  this  decision 

was   the  programming  experience  of  the  author  with   C   and   the  other  was  to 

maintain  compatibility  with  the  IRIS  system  software.  However,  C  is  not  without 

its  disadvantages.    One  of  problems  with  C  is  that  it  is  a  weakly  typed  language. 

This  tends  to  make  software  development  more  frustrating  and  time  consuming. 
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This    frustration    could    have    been    considerably    alleviated    if   a    strongly    typed 
language  like  Pascal  had  been  used. 

3.  Graphical  Objects 

This  is  a  group  of  drawing  commands  used  to  defined  a  geometric  model 
or  an  object.  The  advantage  of  using  these  commands  is  that  the  graphical 
oojects  can  then  be  treated  as  a  single  entity  whicn  can  be  moved,  scaled,  rotated, 
or  combined  with  other  graphic  objects  to  form  more  complex  objects. 

4.  Double  Buffering 

The  screen  image  in  an  IRIS  system  is  stored  in  a  set  of  bitpianes.  Each 
bitplane  provides  one  bit  or"  storage  per  pixel.  An  RGB  vaiue  is  associated  with 
each  pixel  which  determines  the  color  and  the  brightness  of  the  pixel.  This  value 
is  made  up  of  three  eight-bit  intensity  values  -  one  for  red,  one  for  green,  ana  one 
for  blue. 

The  bitpianes  can  be  used  in  either  of  the  two  modes,  single  buffer  or 
double  buffer.  In  the  single  buffer  mode,  up  to  twelve  bitpianes  can  be  used  to 
handle  the  image  color  and  the  rest  can  be  used  for  z- buffering  ,  a  technique  used 
to  remove  hidden  lines  and  surfaces.  The  problem  with  single  buffering  is  that 
the  image  on  the  screen  is  simultaneously  updated  and  displayed.  This  means 
that  incomplete  or  changing  picture  may  appear  on  the  screen. 

In  double  buffering  mode,  the  bitpianes  are  divided  into  two  portions, 

called  front  and  back  buffers.    The  purpose  of  having  two  buffers  is  to  have  one 

buffer  being  updated  while  another  buffer  is  being  displayed.    The  benefit  of  this 
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arrangement  is  that  a  changing  or  incomplete  image  will  not  appear  on  the  screen. 
This   is   important   in   certain   applications  such   as   motion   animation.     The   3D 
graphics  simulation  uses  the  bitplanes  in  double  buffering  mode. 
5.     Coordinate  Transformation 

In  order  to  manipulate  graphical  objects,  coordinate  transformations  are 
required  [Ref.  41].  When  denning  the  ooject.  it  is  convenient  to  cnose  a  point  to 
be  the  object  origin  and  to  then  build  the  object  around  this  selected  reference 
point.    The  space  which  the  ODject  occupies  is  called  objecr  space. 

The  object  space  must  be  transformed  into  world  space  w;:en  a  group  of 
objects  is  to  be  displayed  together.  Since  the  world  space  can  oe  viewed  from 
various  directions  and  orientations,  another  coordinate  system  called  aye  space  is 
required  to  specify  how  tne  world  space  is  to  be  viewed.  Finally,  this  eye  space 
must  be  mapped  into  screen  space  which  is  a  2-D  coordinate  system  for  displaying 
the  objects  on  the  graphics  screen. 

Four  types  of  transformation  commands  are  available  on  the  IRIS  to 
perform  the  various  mappings  described  above: 

o  Modeling   transformation   commands,   such    as   rotate,   translate,    and   scale, 
transform  the  coordinate  system  of  objects. 

o  Viewing  transformation  commands,  such  as  polarview  and  lookat,  place  the 
viewer  and  eye  coordinate  system  in  world  space. 

o  Projection   transformation  commands,  such  as  perspective,  window,  ortho, 
and  ortho2,  transform  eye  space  to  the  screen  coordinate  system. 
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o  Viewport  transformation  commands,  such  as  viewport  and  scrmask.  define 
the  position  of  the  rectangular  region  on  the  screen  to  be  used  for  displaying 


the  image. 


C.    USER  GUIDE 

To  run  the  graphics  simulation,  just  enter  the  following  command: 

carsimu 

It  takes  a  short  time  for  the  computer  to  read  the  roadmap  into  the  memory. 

The  simulation  begins  with  the  display  as  shown  in  Figure  4.1.  Ah  can  be 
seen,  the  :op  half  of  "he  graphics  display  is  an  "out-of- the- windshield!'  view  of  "he 
worid  and  the  lower  half  of  the  display  is  the  vehicle  dashboard  display  area. 

On  the  extreme  left  >f  *:he  dashboard  display  is  some  information  about  how 
to  drive  the  vehicle.  This  display  area  shows  that  pressing  the  three  mouse 
buttons  simultaneously  terminates  the  simulation. 

Pressing  the  right  mouse  button  is  equivalent  to  stepping  on  the  accelerator  of 
a  conventional  vehicle  except  that  every  mouse  click  increases  the  desired  speed 
by  a  fixed  increment  of  four  kilometers  per  hour.  Pressing  the  middle  mouse 
button  is  similar  to  stepping  on  the  brake  of  a  conventional  vehicle  except  that 
every  mouse  click  decreases  the  desired  speed  by  a  fixed  decrement  of  four 
kilometers  per  hour.  Pressing  the  left  mouse  button,  which  is  the  third  and  last 
button,  stops  the  vehicle. 
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Moving  the  mouse  to  the  left  or  to  the  right  corresponds  to  turning  the 
steering  wheel  of  a  vehicle.  The  steering  wheel  turning  rate  is  controlled  by  the 
speed  the  mouse  is  moved  towards  the  left  or  the  right. 

Besides  using  the  mouse  buttons  for  driving  the  vehicle,  the  keyboard  keys  are 
used  to  toggle  various  information  displays  or  to  reset  certain  dashboard  displays. 
Pressing  n  or  H  on  the  keyboard  stops  the  simulation  temporarily  and  the  whole 
dashboard  area  is  used  to  display  additional  information  about  the  various  key 
functions. 

The  fuel  ^auge  indicates  the  amount  of  fuel  left  in  the  vehicle.  When  the  fuel 
runs  out  before  the  whole  circuit  is  completed,  the  simulation  stoDS  and  a  message 
is  displayed  to  inform  the  driver  of  the  condition. 

The  compass  is  located  on  the  top  center  of  the  dashboard  display.  This 
shows  the  vehicle  heading  angle.  Following  this  is  the  steering  wheel  display 
indicating  the  position  of  the  steering  wheel,  the  speedometer  showing  the  current 
velocity  of  the  vehicle,  and  the  odometer  recording  the  total  distance  traveled. 
The  first  three  indicators  are  especially  helpful  for  manual  driving  since  it  allows 
the  driver  to  "feel"  the  situation  and  make  more  appropriate  corrections  if 
necessary.  In  real  driving,  these  indicators  are  not  as  important  because  the 
driver's  kinesthetic  senses  provide  him  with  information  concerning  the  steering 
wheel  and  the  various  forces  acting  upon  him. 

On  the  extreme  right  of  the  dashboard  display  is  the  warning  panel.    When 

the  vehicle   is   not   moving,   the  brake  light   is  turned  on.     When   the  engine  is 
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warmed  up,  the  temperature  light  shows  yellow  and  when  it  overheats,  the  light 
turns  red.  The  most  important  part  of  the  warning  panel  is  the  danger  light. 
This  area  blinks  when  the  vehicle  moves  too  close  to  the  edge  of  the  road.  An 
alarm  will  also  be  given  if  it  is  switched  on  by  the  user  with  one  of  the  keys  on  the 
keyboard. 

The  last  area  on  the  dasriDoard  display  is  called  the  information  display  area. 
The  main  purpose  of  this  area  is  to  show  some  key  technical  data  used  for  the 
current  simulation  run.  This  area,  by  default,  is  turned  off  and  it  can  oe  turned 
on  with  a  key  on  the  keyboard. 

A  clock  indicating  the  date  and  time  of  day  is  dispiayed  on  the  top  left  or"  the 
graohics  disolav.  Again  this  can  be  turned  off  with  a  key.  When  the  vehicle  is 
operating  in  the  autopilot  mode,  a  blinking  indicator  is  dispiayed  on  the  top 
center  of  the  graphics  display. 

D.    MODULE  DESCRIPTION 

I  1      r      ■ 

1.      Carsimu.c 

This  is  the  main  module  of  the  entire  graphics  simulation.  It  sets  up  the 
system  by  initializing  all  the  local  and  global  variables  and  the  graphics  facilities. 
After  setting  up,  the  actual  simulation  is  controlled  from  this  module.  Figure 
4.2-4.8  show  the  flowcharts  of  this  module. 
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Figure  4.2  CARSIMU.C  Flowchart 
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Figure  4.3  Main  Simulation  Loop  Flowchart  (Part  1) 
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Figure  4.4  Main  Simulation  Loop  Flowchart  (Part  2) 
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Figure  4.5  Main  Simulation  Loop  Flowchart  (Part  3) 
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Figure  4.6  Main  Simulation  Loop  Flowchart  (Part  4) 
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Figure  4.7  Main  Simulation  Loop  Flowchart  (Part  5) 
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Figure  4.8  Main  Simulation  Loop  Flowchart  (Part  6) 
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2.  Circuit. c 

This  module  has  three  main  functions.  The  first  and  primary  function  is 
to  build  the  road  used  in  the  graphics  simulation.  The  road  is  built  with  four 
straight  segments  of  equal  width  and  length.  These  segments  are  connected 
together  by  three  road  curves  to  form  a  open-ended  rectangular  circuit.  The 
length  and  width  of  the  straight  segments  can  be  varied  individually.  The  radius 
of  the  road  curves  can  also  be  individually  modified. 

The  second  function  of  this  module  is  to  "paint"  all  the  road  marks  on 
the  surface  of  the  road.  There  are  three  types  of  road  marks  -  white  arrows, 
white  strips  and  wording  on  the  road  surface.  The  rinai  function  is  to  "erect"  ail 
the  signboards  along  the  road. 

3.  Find-subgoai.c 

The  function  of  this  module  is  to  search  for  the  next  subgoal  for  the 
vehicle  to  steer  towards  when  the  vehicle  is  operating  in  the  autopilot  mode.  This 
module  uses  the  road  map  generated  by  the  module  map.c  to  compute  and 
determine  the  next  subgoal. 

Instead   of  searching   for   the   subgoal   only   when   the   vehicle   is   in   the 

autopilot  mode,  the  subgoal  is  constantly  being  computed  and  selected  once  the 

vehicle  starts  moving.    There  are  two  reasons  for  doing  this.    The  first  being  that 

it  provides  a  general  solution  to  ensure  that  the  subgoal  is  always  in  front  of  the 

vehicle.    This  is  done  by  making  sure  that  the  very  first  subgoal  is  chosen  in  front 

of  the  vehicle.     Subsequent  subgoals  are  constantly  recomputed  and  selected  as 
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the  vehicle  moves  so  that  the  subgoal  will  always  remain  in  front  of  the  vehicle. 
This  simple  solution  works  in  the  simulation  model  because  the  vehicle  always 
starts  from  the  same  position  and  heads  in  the  same  direction. 

The  second  reason,  which  is  the  more  important  one,  is  that  of  providing 
a  subgoal  quickly  when  the  autopilot  is  turned  on.  When  the  subgoal  is  not 
constantly  being  recomputed  and  selected,  then  if  me  autopiiot  is  curned  on  for 
the  first  time  very  far  down  the  road,  a  significant  ana  noticeable  delay  arises  due 
to  the  need  to  search  for  a  subgoal  starting  from  the  beginning  of  "he  road. 
Anotner  situation  where  there  is  sucn  a  delay  is  when  tne  autopiiot  is  turned  off 
and  on  over  a  long  distance.  In  the  latter  situation,  the  subgoal  has  to  be 
computed  from  the  location  where  the  autopiiot  was  last  turned  off. 
4.     Map.c 

This  is  the  only  module  that  works  independently  from  the  rest  of  the 
system.  Its  basic  role  is  to  generate  the  road  map  that  is  used  for  subgoal 
computation  and  selection.  Though  it  works  independently,  it  has  to  be  given  the 
same  road  description  as  that  used  for  building  the  road  in  the  main  simulation 
module. 

There  are  a  number  of  road  parameters  that  can  be  modified.    These  are 

the    road   width,    road    length,    road   curve   radius    and    interval   size.     The   last 

parameter  determines  how  far  apart  road  center  line  points  are  spaced  in  the  list 

of  points  available  for  steering  subgoals.    Evidently,  the  smaller  the  interval  size, 

the  greater  is  the  number  of  points  generated  to  represent  the  road.     For  the 
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results  presented  in  Chapter  V,  the  road  points  available  for  vehicle  steering  are 
stored  with  a  spacing  of  1  meter  between  successive  points.  The  output  of  this 
module  is  a  file  containing  the  map  of  the  entire  road.    This  file  is  called  roadmap. 

5.  Other. c 

There  are  many  routines  in  this  module.  Each  routine  builds  a  graphical 
object  such  as  tne  sky.  clouds  and  mountains.  There  are  aiso  a  few  supporting 
routines  which  are  called  by  circuit. c  to  build  tne  road  used  in  the  simulation. 
These  supporting  routines  build  the  road  surface,  curves,  arrows  ana  signboards. 

6.  Help.c 

When  tne  key  h  or  H  is  pressed,  the  lower  naif  of  tne  grapnics  screen  that 
displays  the  vehicle  dashboard  is  used  to  display  heip  information.  This  moduie 
controls  the  content  of  the  heip  information. 

7.  Letter. c 

This  routine  was  developed  J.  Artero  and  R.  Kirsch  and  modified  by  L. 
Williamson.  This  module  creates  all  the  upper-case  Roman  alphabet  except  for 
G,  Q,  V,  W,  X  and  Z.  With  the  graphics  translate  and  rotate  command,  the 
appropriate  letters  are  selected  and  positioned  to  form  the  wording  on  the  surface 
of  the  road. 

8.  Integrates 

The  Euler-Heun  numerical  integration  method  is  implemented  in  this 
module  [Ref.  45].    When  the  vehicle  is  driven  in  manual  mode,  the  driver  controls 
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the  steering  wheel  with  the  movement  of  the  mouse.    However,  when  the  autopilot 
is  in  control,  the  steering  wheel  angle  for  the  dashboard  display  is  computed. 

9.  Display. c 

The  whole  dashboard  display  is  created  with  this  module.  The  vehic  s 
dashboard  is  displayed  on  the  lower  half  of  the  graphics  screen.  Figure  4.1  shows 
the  various  par's  of  the  dashboard  display. 

10.  Road.h 

User  deiined  constants  in  C  programming  are  extremely  important.  This 
feature  nor  only  maxes  software  modification  easier,  but  aiso  improves  program 
readability.  Besides  the  system  derinea  constants  that  can  be  accessed  by 
including  the  include  file,  gl.h,  user  defined  constants  are  kept  in  road.h.  This  tile 
also  contains  any  additional  user  defined  type  sucn  as  Dimension. 

11.  Roadmap 

This  is  the  file  generated  by  the  module  map.c.  It  contains  the  roadmap 
that  defines  the  center  line  of  the  road  used  by  the  simplified  vision  model. 
Without  this  file,  the  simulation  will  not  run. 

12.  Makefile 

The  make  facility  in  UNIX  [Ref.  42]  is  a  very  useful  feature.  It  helps  solve 
a  lot  of  program  administration  problems  associated  with  large  software  projects 
involving  many  modules.  One  capability  that  it  provides  is  to  automatically 
recompile  only  the  files  that  have  changed.     The  make  feature  is  driven  by  an 
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special  file  call  Makefile.    This  special  file  defines  xhe  files  that  make  up  the  entire 
program. 

E.    SPECIAL  NOTES 

This  section  highlights  some  of  the  important  decisions  made  in  the 
simulation  program  mat  must  be  understood  by  readers  who  may  intend  to 
modify  and  improve  the  simulation. 

1.  45°  Branch  Cut 

This  feature  is  required  co  overcome  the  problem  of  discontinuity  when 
the  arctangent  function  used  in  the  main  moduie  crosses  the  ISO0*  boundary.  The 
solution  to  this  problem  adopted  in  this  work  assumes  that  the  maximum  vehicie 
heading  error  never  exceeds  45"  and  therefore  places  the  arctangent  branch  cut  at 
-45°  rather  than  at  the  usual  180°  location.  This  alteration  permits  the  road 
center  line  to  turn  270°  without  the  vehicle  encountering  a  discontinuity  in  a  or 

0. 

2.  Convention  Difference 

One  of  the  issues  that  caused  much  programming  difficulty  initially  is 
that  the  x,  y,  and  z  axis  convention  adopted  in  the  mathematical  model 
developed  in  Chapter  III  differs  from  that  of  the  IRIS  graphics  implementation  in 
that  the  graphics  z  axis  in  screen  coordinates  is  directed  inward.  Anyone  wishing 
to  modify  the  programs  of  this  work  must  be  aware  of  this  difference. 
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3.     Roadmap  Size 

The  size  of  the  array  used  in  the  program  for  holding  the  roadmap.  that 
is.  the  road  center  line,  is  initialized  to  3000  points.  This  may  not  be  sufficient  for 
a  roadmap  with  a  smaller  interval  or  when  the  present  road  circuit  is  extended. 
Another  point  to  note  is  that  the  z  coordinate  of  the  road  point  is  included  so 
that  an  uneven  road  can  be  set  up  without  mucn  software  modification. 
Currently,  the  z  coordinate  is  set  to  zero. 

F.     SUMMARY  AND  CONCLUSIONS 

The  entire  graphics  simulation  model  is  written  in  a  manner  that  allows  easy 
modification  and  expansion.  One  of  the  major  problems  witn  software 
development  is  to  control  the  rippling  effect  of  future  code  updates.  Much 
attention  was  devoted  to  this  aspect  when  the  software  system  of  this  study  was 
designed. 

With  the  3D  color  graphics  simulation  model,  many  experiments  can  be 
carried  out  involving  both  human  and  autopilot  driving.  The  results  of  a  number 
of  such  experiments  are  documented  in  the  next  chapter.  The  source  code  of  the 
entire  simulation  model  is  included  in  the  appendix  for  those  who  need  to  access 
to  it  for  more  detailed  understanding  or  modification. 
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V.    EXPERIMENTAL  RESULTS 

A.    INTRODUCTION 

Many  simulation  runs  were  carried  out  with  different  model  characteristics  to 
test  the  validity  of  the  hypothesis  and  the  correctness  of  the  mathematical  model 
used.  The  results  of  the  3-D  simulation  runs  were  captured,  scaled,  and  formated 
into  2-3  olots  for  documentation  and  discussion. 

To  obtain  rhe  2-D  plots,  a  special  modification  was  made  to  the  main 
simulation  module.  The  purpose  of  the  modification  was  *o  capture  the  vehicle 
position  as  it  moves  and  to  record  its  deviation  from  the  road  center  line.  The 
information  is  stored  in  two  files  that  are  also  scaled.  The  scaling  is  based  on  the 
background,  figure  upon  which  this  information  is  overlaid  to  obtain  the  desired 
plot. 

The  figures  in  this  chapter  are  produced  with  a  very  flexible  and  easy-to-use 
graphics  package  called  OZDRAW  [Ref.  46].  Basically,  the  desired  background 
such  as  the  outline  of  the  road,  is  generated  with  OZDRAW  according  to  some 
scale.  The  information  given  by  the  modified  module  discussed  above  is  then 
used  by  OZDRAW  to  overlay  the  vehicle  positions  onto  the  road  outline.  The 
combined  image  is  then  labeled  and  printed  for  documentation. 


69 


B.    DESCRIPTION  OF  EXPERIMENTS 

The  entire  simulation  test  track  consists  of  four  400m  straight  road  segments 
connected  by  three  road  curves  with  80m  radius  to  form  an  open-ended 
rectangular  circuit.  However,  in  most  cases,  not  all  of  the  circuit  is  used  for 
capturing  the  experimental  results.  Rather,  all  but  a  few  of  the  experiments  were 
carried  out  for  a  short  segment  of  the  entire  circuit  which  included  a  200m 
segment  of  straight  road  followed  by  a  road  bend  and  then  another  stretch  of 
about  150m  of  straight  road. 

In  ail  the  experiments,  the  simulation  begins  by  setting  the  velocity  to  the 
aesirea  value  and  putting  the  venicie  5m  off  the  road  center  line.  For  autopilot 
driving  experiments,  the  autopilot  is  also  activated.  Except  for  Figure  5.3.  Figure 
5.4.  and  Figure  5.13,  the  simulation  stops  when  the  vehicle  crashes  or  when  it 
successfully  overcomes  the  bend  and  it  is  about  150m  down  the  second  segment  of 
the  straight  road.  The  results  of  Figure  5.3  and  Figure  5.4  are  obtained  by  driving 
the  vehicle  in  the  autopilot  mode  for  200m  on  the  straight  road.  Figure  5.13  is 
generated  by  autopilot  driving  around  a  270°  loop  with  a  radius  of  80m.  All  of 
the  experiments  use  the  nonlinear  mathematical  model  for  the  vehicle  developed 
in  Chapter  III.  A  comparison  between  the  linearized  model  and  the  nonlinear 
model  is  carried  out  with  two  experiments  to  show  their  relationship  and  the 
accuracy  and  usefulness  of  the  linearized  model  . 
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C.    MANUAL  DRIVING 

When  the  simulation  was'  first  developed,  the  mouse  buttons  were  used  to 
manually  drive  the  vehicle;  i.e.,  pressing  the  left  mouse  button  moved  the  vehicle 
to  the  left  and  pressing  the  right  mouse  button  moved  the  vehicle  to  the  right. 
This  was  found  to  be  an  uncomfortable  way  to  drive  the  vehicle.  The  method 
that  the  simulation  now  uses  is  found  to  be  much  better.  It  simply  involves 
moving  the  entire  mouse  to  the  left  or  to  the  right  to  steer  the  vehicle  to  the  left 
or  to  the  right  respectively.  This  method  ox  driving  was  found  to  be  more  natural 
and  more  closely  resemble  actual  driving  conditions. 

Typical  results  for  human  driving  are  shown  in  Figure  5.1  and  5.2.    In  Figure 

5.1.  the  vehicle  velocity  is  50  km/hr  and  at  this  speed  human  performance  is 
clearly  good.    When  the  vehicle  velocity  is  increased  to  75  km/hr,  shown  in  Figure 

5.2,  it  was  noted  that  performance  deteriorated  rapidly,  especially  when  going 
around  the  road  curve.  In  fact,  control  is  only  marginally  possible.  When 
attempting  a  cornering  at  this  speed,  several  trials  had  to  be  carried  out  before  a 
plot  was  obtained.  Several  attempts  to  manually  drive  the  vehicle  at  100  km/hr 
were  made,  but  all  were  unsuccessful.  It  should  be  noted  that  the  dots  on  these 
plots  as  well  as  all  other  figures  of  this  chapter  are  generated  at  a  rate  of 
approximately  6  Hz  and  therefore  they  are  more  spread  out  at  higher  vehicle 
speeds. 
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Parameters  msed : 
velocity  time  constant, 
turning  response  gain 
soeed 


=  9.0 

=  0.02 

=  50  km/hr 


Figure  5 . 1  Manual  Driving 


72 


velocity  time  constant 
turning  response  gain 
speed 


=  9.0 
=  0.02 

=  75  km/hr 


(Result  obtained  only  after  several  tries) 


Figure  5.2  Manual  Driving 
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D.    COMPARISON  OF  LINEARIZED  AND  ACTUAL  MODEL 

The  next  two  experiments  were  conducted  to  demonstrate  the  effectiveness  of 
using  linearization  theory.  In  these  experiments,  the  vehicle  was  driven  by  the 
autopilot  on  a  200m  straight  road  using  the  pursuit  navigation  model.  For  each 
experiment,  two  runs  were  made.  The  first  run  used  the  4th  order  nonlinear 
model  of  Eq.  (3.10)  to  (3.13)  with  a  and  a  calculated  from  Eq.  (3.21)  and  Eq. 
(3.22)  respectively.  The  second  run  used  the  linearized  model  where  a  and  a  were 
computed  with  "he  linearization  or'  Eq.  (3.24)  and  Eq.  (3.25)  respectively.  The 
results  of  these  two  runs  were  overlaid  to  obtain  Figure  5.3  and  Figure  5.4. 
Figure  5.3  used  T  =  1  and  k7  =  1  resulting  in  A  =  —  1.  This  means  that  the 
system  should  be  able  ro  correct  about  60%  of  its  deviation  from  the  center  line  in 
two  seconds.  Figure  5.4  used  T  =  2  and  ka  =  0.5  which  means  that  A  =  -0.5.  In 
this  case,  the  time  required  to  correct  the  same  amount  of  deviation  is  doubled  to 
four  seconds.  These  predictions  match  the  results  obtained  in  both  figures.  It  is 
also  observed  that  in  both  experiments,  the  linearized  model  used  is  a  very 
accurate  approximation  of  the  nonlinear  model.  Moreover,  the  good  agreement 
between  the  analytical  solution  and  the  numerical  solution  in  both  cases  provides 
a  measure  of  confidence  that  the  simulation  program  is  correct.  It  also  shows  that 
the  sampling  rate  of  6  Hz  adopted  in  this  work  is  adequate  for  accurate  numerical 
integration  of  the  simulation  model  differential  equations. 
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Figure  5.3  Vehicle  displacement  from  road  center  line 
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Figure  5.4  Vehicle  displacement  from  road  center  line 
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E.    PURSUIT  NAVIGATION 

The  next  three  figures  show  the  performance  of  the  pursuit  navigation  model 
using  various  vehicle  velocities.  Figure  5.5  shows  that  at  50  km/hr,  the  vehicle 
was  able  to  keep  to  the  center  line  of  the  road  quite  well  while  turning  a  corner. 
Cornering  is  still  not  a  problem  when  the  vehicle  is  traveling  at  100  km/hr  as 
shown  in  Figure  5.6.  But  at  150  km/hr.  Figure  5.7,  the  vehicle  cannot  keep  itseif 
on  the  road  when  turning  the  bend  due  to  its  inability  to  keep  to  the  center  of  the 
road. 

Using  rhe  same  pursuit  navigation  model,  another  set  of  experiments  was 
carried  out.  In  this  set  of  experiments.  ie  prediction  rime  was  aoubled  to  2 
seconds.  This  experiment,  as  shown  in  Figure  5.S  and  Figure  5.9.  shows  that  the 
autopilot  performance  dropped  dramatically.  Due  to  the  longer  prediction  time,  at 
50  km/hr,  the  vehicle  tends  very  much  towards  the  inside  of  the  road  as 
compared  to  Figure  5.5.  At  100  km/hr.  the  vehicle  could  not  make  it  around  the 
bend  because  it  is  predicting  too  far  ahead.  However  on  a  straight  road,  the 
prediction  time  does  not  seem  to  matter.  This  corresponds  closely  to  the  author's 
concept  of  human  driving.  When  we  are  driving  on  a  straight  road,  we  are 
normally  more  casual  than  when  we  are  trying  to  bring  the  vehicle  around  a  road 
bend;  that  is,  we  appear  to  shorten  or  lengthen  our  prediction  time  according  to 
the  road  conditions  and  the  driving  environment  instead  of  utilizing  a  constant 
prediction  time  as  in  this  simulation. 
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ParameLars  used: 
heading  angle  rate  gain 
velocity  lime  constant 
turning  response  gain 
heading  angle  gain 
prediction  time 
speed 


1  .0 

9.0 

0.02 

1  .0 

i . 0  sec 

50  km/hr 


Pursuit  Navigation 


Figure  5.5  Driving  with  autopilot 
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Parameters  used: 
heading  angle  rate  gain 
velocity  time  constant 
turning  response  gain 
heading  angle  gain 
prediction  time 
speed 


=  1.0 

=  9.0 

=  0.02 

=  1.0 

=  1.0  sec 

=100  km/hr 


Pursuit  Navigation 


Figure  5.6  Driving  with  autopilot 
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Parameters  used: 
heading  angle  rate  gain 
velocity  time  constant 
turning  response  gam 
heading  angle  gain 
prediction  cime 
speed 


Pursuit  Navigation 
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Figure  5.7  Driving  with  autopilot 
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aramecers  used: 

heading  angle  rate  gain  =  1.0 

velocity  time  constant  =  9.0 

turning  response  gain  -  0.02 

heading  angle  gain  =  0.5 

prediction  time  =2.0  sec 

speed  =  50  km/hr 


Pursuit  Navigation 


Figure  5.8  Driving  with  autopilot 
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CRASH  ! 


arame~oers  usea: 
heading;  angle  rate  gai: 
velocity  ~ime  constant 
turning  response  gain 
heading  angle  gain 
prediction  time 
speed 


=  1.0 

=  9.0 

=  0.02 

=  0.5 

=  2.0  sec 

=  100  km/hr 


Pursuit  Navigation 


Figure  5.9  Driving  with  autopilot 
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F.    PROPORTIONAL  NAVIGATION 

The  pursuit  navigation  model  was  improved  with  another  gain  term  added  to 
the  vehicle  guidance  law.  This  made  it  into  a  proportional  navigation  model 
whose  performance  is  illustrated  by  Figures  5.10  through  5.12.  Comparing  Figure 
5.10  to  Figure  5.5.  it  can  be  seen  that  the  proportional  navigation  model  was  able 
to  maintain  its  position  on  the  road  center  line  more  diligently.  The  importance 
of  this  is  that  the  vehicle  is  now  capable  of  turning  the  road  bend  at  150  km/hr 
without  crashing  as  in  Figure  5.12.  This  was  not  possible  at  the  same  speed  with 
the  pursuit  navigation  model.  Figure  5.7. 

Another  important  observation  is  the  system's  response  to  deviation.  Based 
on  results  derived  in  Chapter  III.  Figure  5.5  to  Figure  5.7  should  have  a  total  time 
constant  of  2  seconds  whereas  Figure  5.8  to  Figure  5.12,  Figure  5.15  and  Figure 
5.16  should  have  a  total  time  constant  of  4  seconds.  As  seen  in  these  figures,  they 
match  the  predicted  preformance. 

Figure  5.13  shows  a  performance  comparison  between  the  proportional 
navigation  model  and  the  pursuit  navigation  model  when  the  vehicle  is  going 
around  a  270°  loop.  As  predicted  by  the  analysis  of  Chapter  III,  the  pursuit 
navigation  steering  law  produces  a  steady  displacement  of  the  vehicle  toward  the 
inside  of  the  turn.  This  effect  is  eliminated  when  proportional  navigation  is  used 
with  k  ■  =  0.828,  again  as  predicted  by  linearized  system  analysis. 
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Parameters  isea: 

heading  angle  rate  gain  =  0 . S28 

velocity  time  constant  =  9.0 

turning  response  gain  =  0.02 

heading  angle  gain  =  C . 294 

prediction  time  =  i . 17  sec 

speed  =  50  km/hr 


Proportional  Navigation 


Figure  5.10  Driving  with  autopilot 
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Parameters  usea: 

heading  angle  rate  gain  =  0 . S28 

velocity  time  const-ant  =  9.0 

turning  response  gain  =  0.02 

heading  angle  gain  =  0.294 

prediction  time  =  1 . 17  sec 

speed  =  100  km/hr 


Proportional  Navigation 


Figure  5.11  Driving  with  autopilot 
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arameters  used: 

heading  angle  rate  gain  =  0.828 

velocity  time  constant  =  9.0 

turning  response  gain  =  0.02 

heading  angle  gain  =  0.294 

prediction  time  =  1 . 17  sec 

speed  =  150  km/hr 


Proportional  Navigation 


Figure  5.12  Driving  with  autopilot 


86 


ProDortionai  Navigation 


f       Pure  Pursuit,  Navigation   oj 


Center  line" 


Speed  =  lOOkm/hr 


Total  time  constant  =  4  seconds 


Figure  5.13  Loop  Performance 
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G.    EFFECT  OF  VARIOUS  ROAD  POINT  SAMPLING  RATES 

The  last  set  of  experiments  carried  out  was  to  examine  the  effect  of  different 
sampling  frequencies  at  which  road  steering  points  are  selected  when  the  vehicle  is 
operating  in  autopilot  mode.  All  the  autopilot  driving  experiments  conducted 
previously  were  done  with  the  steering  point  being  selected  every  cycle.  Figures 
5.14  through  Figure  5.i6  show  -he  results  ootams  when  new  steering  points  are 
chosen  after  every  3  cycles.  5  cycles  and  7  cycles  respectively  with  a  1.17  second 
prediction  time.  Comparison  of  these  rigures  with  Figure  5.14  shows  that  choosing 
steering  points  less  often  actually  helps  the  vehicle  to  negotiate  curves.  This  may 
seem  surprising  initially,  but  in  fact  snould  be  expected  since  reducing  the  roaa 
sampling  rate  also  reduces  the  average  prediction  time.  There  is  of  course  a  limit 
to  the  extent  that  the  sampling  rate  can  be  lowered  since  the  steering  point  must 
not  be  allowed  to  pass  under  the  vehicle.  For  the  present  example,  since  T  =  1.17 
seconds,  the  maximum  interval  for  road  sampling  is  7  control  cycles  (because,  as 
previously  stated,  the  vehicle  steering  loop  was  operated  by  a  6  MHz  rate  for  all 
simulation  experiments). 

While  the  above  analysis  seems  to  say  that  the  apparent  human  strategy  of 
driving  toward  one  point  for  several  steering  cycles  is  effective,  one  negative  result 
of  this  approach  was  noted.  This  was  that  the  steering  wheel  motion  was  more 
jerky  than  in  earlier  simulations  in  which  a  new  steering  point  was  selected  on 
every   control   cycle.     Again,   this   is   not   surprising   since   reducing   the   average 
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Parameters  used : 
heading  angle  rate  gain 
velocity  time  constant 
turning  response  gain 
heading  angle  gain 
prediction  time 
speed 
road  point  selection  rate 


0.S28 

9.0 

0.02 

0.294 

1  .  17  sec 

100  km/hr 

3  cycles 


Proportional  Navigation 


Figure  5.14  Driving  with  autopilot 
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Parameters  used: 

heading  angle  rate  gain  =  0.328 

velocity  time  constant  =  9.0 

turning  response  gain  =  0.02 

heading  angle  gain  =  0.294 

prediction  time  =  1 . 17  sec 

speed  =  100  km/hr 

road  point  selection  rate  =  5  cycles 


Proportional  Navigation 


Figure  5.15  Driving  with  autopilot 
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Parameters  ised : 
heading  angle  rate  gain 
velocity  time  const-ant 
turning  response  gain 
heading  angle  gain 
prediction  time 
speed 
road  point  selection  rate 


0.828 

9.0 

0.02 

0.294 

1 . 17  sec 

100  km/hr 

7  cycles 


Proportional  Navigation 


Figure  5.16  Driving  with  autopilot 
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prediction     time     should     tend     to     cause     the     system     to     become     somewhat 
underdamped  according  to  the  theory  of  Chapter  III. 

H.    SUMMARY 

The  results  in  this  chapter  show  that  the  hypothesis  about  the  unconscious 
behavior  of  human  driving  is  reasonably  ".veil  in  agreement  with  reality.  It  also 
shows  that  the  mathematical  model  developed  in  the  earlier  chapter  is  a  useful 
model  for  mimicking  this  unconscious  behavior.  However,  much  more  work  is 
needed  to  obtain  statistical  information  about  how  human  gam  "aiues  and 
orediction  times  vary  with  driving  conditions  before  any  degree  of  conhdence  can 
oe  attached  to  the  nypothesis  of  this  work.  Regardless  of  the  results  of  such  a 
study,  however,  the  hypothesis  used  for  unconscious  human  behavior  in  steering 
clearly  provides  a  viable  basis  for  autopilot  design  for  autonomous  vehicles. 
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VI.    SUMMARY  AND  CONCLUSIONS 

A.    SUMMARY 

This  research  work  differs  from  most  previous  research  work  in  the  area  of 
lateral  control  of  autonomous  vehicles  in  the  sense  that  steering  laws  have  not 
generally  been  derived  explicitly  from  a  model  of  human  task  performance. 
Rather,  much  of  "he  current  research  focuses  mainly  on  vision,  sensors,  planning, 
navigation,  and  obstacle  avoidance.  So  far  as  the  author  knows,  none  has 
explored  :he  behavioral  aspects  01  human  driving  which  couid  provide  some 
different  insights  into  possible  approaches  to  autonomous  navigation. 

As  observed  at  the  start  of  this  work,  human  driving  can  be  divided  into  two 
distinct  levels:  that  of  conscious  and  unconscious  behavior.  This  work  is 
concerned  entirely  with  studying  and  modeling  of  the  unconscious  aspect  of 
human  driving. 

Another  important  product  of  this  work  is  the  development  of  a  3-D  color 
graphics  simulation  model.  This  model  can  be  modified,  enlarged  and  enhanced 
to  incorporate  other  related  research  work  in  the  future.  With  this  model,  the 
experiments  are  more  interesting  and  realistic  than  using  simple  2-D  data  plots  as 
has  been  done  in  many  previous  simulation  studies. 
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B.    CONCLUSIONS  AND  POSSIBLE  EXTENSIONS 

In  this  work,  all  the  different  subsystems  such  as  the  vision  subsystem,  the 
vehicle  control  subsystem,  etc.,  are  treated  all  together  as  one  system.  This  is 
manageable  because  of  the  various  simplifying  assumptions  made  in  the 
mathematical  modei  for  vehicle  and  driver  behavior.  One  direction  to  enlarge  this 
research  work  is  to  aeveiop  a  more  sophisticated  vision  model.  The  present  vision 
mechanism  is  too  simple  and  assumes  perfect  vision  capable  of  "seeing"  a  point 
down  the  road  for  the  vehicle  to  steer  towards.  A  better  model  could  use  a  more 
elaborate  algorithm  and  Techniques  such  as  texture  and  coior  analysis  to 
determine  the  various  road  features  and  to  estimate  the  road  edge  location. 

Another  possible  extension  to  this  work  is  to  study  the  conscious  aspect  of 
human  driving.  An  example  of  this  conscious  behavior  would  be  the  ability  to 
stop  the  vehicle  appropriately  when  the  vision  subsystem  "sees"  a  stop  sign  along 
the  road  or  an  obstacle  large  enough  to  prevent  the  vehicle  from  going  ahead 
further. 

In  conclusion,  the  author  hopes  that  this  research  work  can  serve  as  a  testbed 
and  motivation  for  a  more  elaborate  and  comprehensive  study  into  the  behavioral 
aspects  of  human  driving.  This  could  have  a  significant  impact  on  the 
development  of  viable  autonomous  vehicles  in  the  future. 
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APPENDIX  -    SOURCE  PROGRAM 


A.    CARSIMU.C 


r 


This  is  the  main  program  of  the  entire  vehicle  simulation 
program.    To  recomoiie  this  program  just  issue  the  command 
Makefile. 

7 

^include  "road.h" 

xa:xxx***:x^**^*xx*^**xxxxxxxxxx**xxxxxxxxxxxxxx^xxxxxx»:xxxxxxx 

GLOBAL         DECLARATIONS 

*  DO  NOT  remov  any  of  these  declarations. 
They  may  be  used  in  rhe  supporting  programs. 

Tag  transl4,  translS,  transl2,  transll,  transl.  trans22: 
Tag  housellooktag.  houseltranstag,  houselscaletag; 
Tag  houselooktag,  housetranstag,  housescaletag; 
Tag  dangertag,  temptag,  belttag.  braketag; 
Tag  odotagl.  odotag2,  odotag3.  odotag4; 
Tag  fuell,  roadlooktag.  skylooktag; 
Tag  steerwheeltag,  terrainllooktag; 

Coord  latri[3][2],  ratri[3]|2j; 

float  fuelbar,speedbar; 

float  fuelquant      =  MAXFUEL;    /*  Maximum  fuel  available        */ 
float  headingxpos  =  429.5;      /*  Heading  indicator  position  */ 
float  speedinc        =  1.0;         /*  Speed  increment/decrement    */ 

Device  keypressed; 

Boolean  start         =  TRUE;        /*  Start  of  program  flag         */ 

/* 

Larger  turning_response_gain  corresponds  to  "stiff1' 
steering  and  lower  value  corresponds  to  "sloppy" 
steering.    Large  velocity   gain  corresponds  to  sedan 
automobile  and  smaller  value  corresponds  to  sport  car. 


99 


Operator  has  control  over  steer   wheel   angle  and  speed 
using  the  mouse. 

Car  time  is  the  integration  timer. 

7 

float  state_vectorJ5]; 
float  cmd    psi   dot; 

float  heading    angle_rate_gain  =  1.0; 

tloar  velocity    time   consant     =  9.0: 

float  turning   response    ^ain      =  0.02: 

float  neading    angle    gain  =  1.0; 

float  steer   wheel   angle  =  0.0:  /*  Unit  is  radian 

float  prediction    time  =  1.0;      *  Unit  is  second 

float  steer   inc  =  0.10:  *  Unit  is  radian  * 

float  car   time  —  0.0: 

float  aeitat  =  0.17: 

doat  speed  —  0.0: 

IRIS  allow  sucn  a  large  array  only  if  it  is  global 
float  roadmapi5000l [3j: 

Dimension  Bendradiusl  =  S0.0: 
Dimension  Roadwidth  =  16.0; 
Dimension  Roadlen  =  400.0: 
Angle        Fov  =  1000:      /*  Field  of  view  100  deg  */ 

main() 
{ 

LOCAL         DECLARATIONS 

int  oldsampling   cycle  =  -1; 

int  sampling    interval  =  1;         /*  Steering  point  sampling  rate  */ 

int  prev    mousex  =  250;       /*  Previous  mouse  x  position  */ 

int  where  =  1;         /*  Steering  point  location  */ 

int  distance  =  0;         /*  Distance  travelled  */ 


char  thousandc[2],  hundredc[2],  tenc|2],  unitc[2j,  temp_string[l5|; 
int  i,  no   coord,  new   sampling   cycle,  mousex,  cal   mousex; 
int  count,  unit,  ten,  hundred,  thousand,  noofround; 
FILE  *fp; 

float  sigma   dot  =  0.0; 

float  tolerance  =  1.0; 
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float  old_sigma  =  0; 

float  sigma  =  0.0; 

float  prediction _distance; 
float  temp,  tempi; 
float  gx,  gy,  gz; 


extern  long  time();     /*    System  clock    */ 

char  timecjlO];  /*    Car  time  in  char  format    */ 

long  clocktime;  /*    For  clock  value  */ 

char  *clockc; 

Boolean  showclock     =  TRUE;     /*  Display  clock  flag  */ 

Boolean  showtimer     =  FALSE;    /*  Display  integration  timer  */ 

Boolean  alarm  =  FALSE;    /*  Off  road  warning  flag  */ 

Boolean  bell  =  FALSE;      *  Turn  off  danger  alarm    */ 

Boolean  debug  =  TRUE:      '*  Turn  off  debug  info  *  / 

Boolean  autop  =  FALSE:     '*  Turn  off  debug  info  */ 

Boolean  ebrake         =  FALSE;    /*  Emergence  brake  flag 

Dimension  consumption  =  1.0:         ■■'*  Fuel  consumption  */ 
Dimension  crashdown      =  0.0:  I*  Off-road  display  flag  *, 

Dimension  fueldown       =  0.0;  /*  Fuel  depleted  display  flag  */ 
Dimension  headingdeg    =  0.0;  *  Heading  in  degrees  */ 

Dimension  headingrad    =  0.0;  '*  Heading  in  radians  * 

Dimension  rdistance     =  0.0;         *  Distance  travelled 
Dimension  vd  =  100.0;    /*  Viewing  distance     */ 

Dimension  mps   to  kmph  =  3.6;  /*  m/s  to  km/hr  conversion  */ 

Dimension  rad    to   deg    =  360/(2*PI);  /*  radian  to  degree  conversion  */' 


*  / 
/ 


Coord  crashx  =  512.0:     /*  X  viewport  coord  to  detect  off-road 
Coord  crashy  =  385.0:      /*  Y  viewport  coord  to  detect  off-road  */ 

Coord  warnxl  =  212.0:  /*  X  viewport  coord  to  warn  off-road  */ 
Coord  warnx2  =  812.0;  /*  X  viewport  coord  to  warn  off-road  */ 
Coord  warny    =  385.0;     /*  Y  viewport  coord  to  warn  off-road  */' 

Colorindex  colorsjl);     /*  Array  to  store  color  of  crash  spot  */ 
short  nopixel  =  1;         /*  No  of  pixel  to  detect  off-road  */ 

Coord  ex,  cy,  cz;       /*  Current  viewing  point  */ 
Coord  rx,  ry,  rz;        /*  Reference  point  */ 

Coord  pz,  px;  /*  Last  viewing  point       */ 

Object  speedometer,  fuel,  steerwheel,  signboard,  sky,  mountain; 
Object  terrainl,  odometer,  warning,  heading   meter; 
Object  road,  help,  arrow,  house,  housel; 

/ 
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SYSTEM         INITIALIZATIONS 

*************************************************************  i 

I 

/*  Initial  state  vector  of  the  automobile  */ 


state  vector!  1 
state  vectorj2 
state_vector]3 
state   vecton4 


=  0.0 
=  0.0 
=  0.0 
=  0.0 


/*  initial  z  coord  */ 
/*  initial  x  coord  */ 
/*  initial  velocity  */ 
/*  initial  heading  */ 


ex  =  0.0;  cy  =  3.0:  cz  =  0.0: 
rx  =  0.0:  ry  =  3.0:  rz  =  -vd: 
count  =  unit  =  ten  =  hundred  =  thousand  =  0; 

ginitQ; 

doublebufferQ: 

gconfigf): 

cursofff ): 

qdevice(KEYBD): 

viewport(0,  XMAXSCREEN.  0.  YMAXSCREEN) 

ortho2(0.0.  1023.0.  0.0.  767.0): 

blink(10.  CYAN.  255.  0,  0): 
bbox2i(5.  5.  0.  1023.  0.  767): 

mapcolor(MOUNTAIN,  199.  123.  63); 
mapcolor(MOUNTAINl,  210,  150,  0); 
mapcolor(FIELD,  5.  190.  20); 
mapcolor(SKY.  50,  8,  155); 
mapcolorj WARN,  125,  0,  0); 

mapcolor(CHMWALLl. 118, 76,0): 
mapcolorjCHMWALL2. 146, 114,0): 
mapcolorj  WINDOW, 0,141, 205): 
mapcolor(SIDEROOF,188,50.14); 
mapcolor(FRAME,  118,50,14); 
mapcolorj  WALL, 164, 111,0); 
mapcolorjsiDEW  ALL, 146,94.1); 
mapcolorJROOF,148,50,14); 

/*    Dark  Grey    */ 

mapcolor(ROOFl.  100.100,100); 
/*    Light  Grey    */ 
mapcolor(FRAMEl,0,60,60); 
/*    Light  Grey    */ 
mapcolor(SIDEWALL  1,150,60,60); 
/*    Pink    */ 
mapcolor(WALLl, 160,60, 60); 

setvaiuator(MOUSEX,  250,  0,  500); 
setvaluatorJMOUSEY.  250,  0,  500); 
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noise(MOUSEX,  10); 


/************************************************************* 

MAKE       ALL       THE       OBJECTS 

*************************************************************/ 

/ 

makethespeedometer  ( ^speedometer) ; 

makeheadingf  Sheading  _meter); 

makesteerwheelf&steerwheel): 

maketheodometer(  hodometer); 

m  aketerrain  1  ( &:terrain  1 ) ; 

makewarningf&warning): 

maketheroad(&road); 

makehouself&housel); 

makehouse(&  house); 

makethesky(&:sky); 

makehelp(&help); 

makefuel(&:fue]): 


/*  Display  the  introductory  image 
welcome(); 


,<************XX*****X*****X*x*xxxxxx*xxxxxxxx*xx***x*X*x**xxxx 

/ 

READ      ROADMAP 

******  ************  ******  ************  *************************/ 

/*  Read  road  map  into  system  */ 

if  ((fp  =  fopen("roadmap",V"))  ==  NULL) 

{ 

printf("Cannot  read  roadmap.\n"); 

return(-l); 

} 

else 

for  (i  =  0;  !feof(fp);  ++i) 

fscanf(fp,"%f  %{  %V\  &rroadmap[ij[0ir  &roadmap[i][lj, 
&roadmap[i][2]); 
no   coord  =  --i; 


setbell('l'); 
ringbell(); 
setbell('2'); 
ringbell(); 

/************************************************************* 
INITIALIZE     BUFFERS 
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*******************  **********X****X**  *********  ******   X**  ****** 

/ 


/*  Wait  till  a  mouse  is  pressed.  */ 

while(getbutton(MOUSE3)  ==  0); 

color(BLACK); 

clear(); 

swapbuffers(); 

clear(): 

swapbuffers(); 

/******************T**********ap***x*****»:*******************^!* 

MAIN       SIMULATION       LOOP 

************x************x****x**************x************x** 

/ 

while(TRUE) 

{ 

new    sampling   cycle  —  count   sampling   interval: 

pz  =  cz: 
px  =  ex; 

clocktime  =  time((long  *)  0): 
clockc  =  ctime(&:clocktime); 

/*  To  display  clock0  *, 

if  (keypressed  ==  V  ||  keypressed  ==  'C') 
if  (showclock)  showclock  =  FALSE; 
else  showclock  =  TRL:E; 

/*    Sound  alarm  around  2m  before  off  the  road  */ 

cmov2(warnxl,  warny); 

readpixelsjnopixel.  colors); 

if  (colors(O)  !=  BLACK  &&  colors[0]  !=  WHITE) 

alarm  =  TRUE; 

else  alarm  =  FALSE; 

if  (!alarm) 

{ 

cmov2(warnx2,  warny); 

readpixels(nopixel,  colors); 

if  (colorsiOJ  !  =  BLACK  &&  colors(0j  !=  WHITE) 

alarm  =  TRUE; 

else  alarm  =  FALSE; 
} 

/*  Check  if  the  vehicle  is  off  the  road 
IMPT  :  Assume  road  surface  is  black 
and  surface  signs  are  white      */ 
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cmov2(crashx.  crashy); 
readpixelsfnopixel.  colors); 

if  (colorsjOj  !=  BLACK  kk  colors[Oj  !=  WHITE) 
crashdown  =  -1000.0; 

rz  =  -  (vd*cos(state  vectorJ4])  +  state_vector[l]); 
rx  =  vd*sin(state  vector[4])  +  state_vector[2j; 

if  (keypressed  ==  'q'  ||  keypressed  ==  'Q') 
if  (autop) 

{ 

autop  =  FALSE: 

prev    mousex  =  mousex; 

} 
else  if  (state_vector[3!  >  0)  autop  =  TRUE; 

#ifdef  DEBUG 

for(i  =  1:  i  <=  SYSTEM_ORDER:  ++i) 

switch(i) 

{ 
case  1: 

printff'X:  °<;.2f   ".state   vector  1  ): 

break: 
case  2: 

printf("Y:  %.2f   ".state_vector;2! ): 

break; 
case  3: 

printf("Velocity:  %.2f   ".state   vector^'nips   to   kmph): 

break; 
case  4: 

printf("Heading:  %.2f\n", state  vector[4    *  rad   to  deg); 

break; 

} 
#endif  « 

cz  =  -state   vector[lj; 
ex  =  state  vector|2]; 

/*    Check  if  keyboard  pressed.    Keys  pressed  are  queued.  */ 

checkkeybdQ; 

mousex  =  getvaluator(MOUSEX); 

if  (lautop  &&  !ebrake) 

{ 

if  (getbutton(MOUSEl)  &&  getbutton(MOUSE2) 
&&  getbutton(MOUSE3)) 

/*    Exit  Program    */ 

break; 
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else  if  (getbutton(MOUSEl)  ||   (keypressed  ==  'a' 
kevpressed  ==  'A')) 

{ 

if  (speed  <  190) 

{ 

start  =  FALSE; 

speed  =  speed  +  speedinc; 

} 
else    speed  =  190.0;    /*    Top  Speed  */ 

} 


'»>  i 


else  if  (getbutton(MOUSE3)  ||   (keypressed  =  =  'e 

kevpressed  ==  'E')) 
I 

/*    Emergency  brake    */ 
ebrake  =  TRUE: 
'*  state   vectorS    =  0.0: 
speed  =~0.0:    * 

} 

else  if  (getbutton(MOUSE2)  !:   (keypressed  ==  'b'  | 

kevpressed  ==  'B')) 
{ 

Decrease  speed 

if  (speed  >  0) 

speed  =  speed  -  speedinc: 
else   speed  =  0.0: 
} 

}    /*  if  pautop)  */ 

« 
if  (lebrake  &&  state_vector[3    >  0) 

{ 

prediction   distance  =  state   vector[3]  *  prediction    time; 

/* 

"where"  is  passed  to  find   subgoal  so  that  searching 

need  not  always  start  from  the  beginning  of  the  road. 
The  z  and  y  convention  in  the  graphics  system  is  reversed. 
Also  the  sign  is  going  in  the  opposite  direction.    So 
compensate  before  passing  into  find   subgoal. 

7 

where  =  find    subgoal(roadmap,  no   coord,  where,  tolerance, 

prediction   distance,  ex,  -cz,  0.0); 
} 

if  (lebrake  &&  (autop  &&  old   sampling   cycle  <  new   sampling   cycle 
lautop)) 
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{ 

old   sampling   cycle  =  new   samplingcycle; 
if  (where  <  0) 

{ 

/*  Stop  completely  and  remove  autopilot  *  ' 

ebrake  =  TRUE; 

/*  state_vector[3l  =  0.0; 

speed  =  0.0;    */ 

autop  =  FALSE; 

} 

else 

{ 

gx  =  roadmapiwherejjO 

gy  =  roadmapiwherel[l 

gz  =  roadmapiwhere][2l 

} 

} 

*  Convention  difference;  Z-axis  in  graphics  is  Y-axis  in 
mathematical  model.    Also  Z-axis  is  negative  when  moving 
into  cne  screen  which  therefore  must  be  converted  to 
positive  for  our  calculation. 

temp  =  -cz: 

sigma  =  atan2((gx-cx),(gy-temp)); 

,  *  Sigma_dot(0)  =  0  */ 

if  (count  ==  0)  old   sigma  =  sigma; 

/*  This  is  45  deg  branch  cut  to  handle  the  discontinuity 
when  arc  tangent  function  crosses  PI  and  -PI  */ 

if  (sigma  <  -(PI/4))  sigma  =  2*PI  +  sigma; 

#ifdef  DEBUG 

pnntf("'gx  %.2f  ex  %.2f  gy  %.2f  cz  %.2f\gx.  ex,  gy,  cz); 

printfj"    sigmadeg  %.2f\n",(sigma/(2*PI))*360); 
#endif 

sigma   dot  =  (sigma  -  old   sigma) /deltat; 

cmd_psi_dot    =  (heading   angle  rate   gain  *  sigma  dot)  + 
(heading    angle    gain  *  (sigma  -  state   vector[4])); 

if  (autop) 

steer_wheel_angle  =  cmd   psi   dot/ 

(turning   response   gain  *  state  vector[3]); 

old   sigma  =  sigma; 

if  (.'ebrake  &:&  lautop) 
{ 
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/*  Manual  Driving 


*  / 


cal   mousex  =  mousex  -  prev    mousex: 

steer   wheel   angle  =  steer   wheel    angle  —  (float)  cal   mousex / 100; 

prev_mousex  =  mousex; 

} 

compute_new_state(autop); 

/*    Clear  the  vehicle  window    */ 

viewport (0.  XMAXSCREEN.  385.  YMAXSCREEN); 
color(FIELD): 

clear(); 

*  Clear  the  display  panel    * 

viewPorc(0.  XMAXSCREEN.  0.  380); 
color  (WHITE): 

clear(); 

Reset  viewport 
viewport(0.  XMAXSCREEN.  0.  YMAXSCREEN); 

*  Calculate  the  velocity  for  emergence  brake 
if  (ebrake) 

{ 

/*  every  16.0  km/hr  or  4.0  mph  will  take  the 

vehicle  one  additional  cycle  to  stop.  */ 

state   vector!3j  =  state_vectorj3j  -  4.0; 
speed  =  state   vector'Sj; 
if  (state_vector[3i  <  0) 

{    " 

ebrake  =  FALSE; 
state  vector[3]  =  0.0; 
speed  =  0.0: 

} 

} 

/*    Calculate  distance  travelled    */ 

rdistance  =  rdistance— sqrt((cz-pz)*(cz-pz)—  (cx-px)*(cx-px)); 

if  (keypressed  ==  'o'  ||  keypressed  ==  'O')  rdistance  =  0.0; 

distance  =  (int)  rdistance; 

thousand  =  distance/1000; 

hundred  =  (distance  -  thousand* 1000) /100; 

ten  =  (distance  -  hundred  *  100  -  thousand*  1000)/ 10: 

unit  =  distance  -  ten  *  10    -  hundred  *  100  -  thousand*1000. 
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if  (unit  ==  10)  {  unit  =  0;  +-ften;  } 

if  (ten  ==  10)  {  ten  =  0;  ——hundred;  } 

if  (hundred  ==  10)  {  hundred  =  0;  — +  thousand: 

if  (thousand  ==  10)  thousand  =  0; 

sprintf(timec,"/o5.2f',car_time); 

sprintf(thousandc,"%d",  thousand); 

sprintf(hundredc,"%d", hundred); 

sprintf(tenc,"%d",ten); 

sprintff  unite,  "%d",unit+-); 

'*  DISPLAY  HELP  PANEL    */ 

callobj(help); 

/*    EDIT  SKY   * 

editobj(sky); 

objreplace(  sky  look  tag); 

lookat  ( cx.cy.cz.  rx.ry.rz.0.0): 

cioseobj(); 

callobj(sky): 

*    EDIT  TERRAIN    * 

editobj(terrainl); 
objreolacel  terrain  I  look  tag): 
lookat  (ex. cy,cz.rx,ry,rz. 0.0): 
closeobj(); 
callobj(terrainl): 

/*    EDIT  ROAD   */ 

editobj(road); 

objreplace(roadloolfltag); 

lookat  ( ex, cy,cz,rx,ry.rz, 0.0): 

closeobj(); 

callobj(road); 

/*   EDIT  HOUSES   */ 

editobj(house); 
objreplacef  houselooktag) ; 
lookat  ( ex, cy,cz,rx,ry.rz, 0.0); 
objreplace(housetranstag) : 
translate(-80.0,  0.0,  -50.0); 
objreplace(housescaletag); 
scale(0.40,  0.40,  1.0); 
closeobj(); 
callobj(house); 

editobj(housel): 
objreplace(  house  Hook  tag); 
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lookat(cx,cy,cz,rx,ry,rz,0.0); 
objreplacef  house  ltranstag); 
translatef-30.0.  0.0,  -10.0); 
objreplacef  house  lscaletag); 
scale(0.50.  0.50.  1.0): 
closeobj(); 
callobj(housel); 

editobj(housel); 
objreplacef  housellooktag): 
lookatfcx.cy.cz.rx.ry.rz.O.O); 
objreplacef  house  ltranstag); 
transiate(-30.0.  0.0.  -15.0); 
objreplacef  house  lscaletag): 
scale(0.50,  0.50.  1.0); 
closeobjf); 
callobjfhousel); 

eduobjj  house): 
oojreoiacei  nouselooktag): 
lookat(cx.cy.cz.rx.ry.rz.O.O); 
objreplacel  housetranstagj: 
transiatef  100.0.  0.0.  -Roadlen   2); 
objreplacef  housescaietag); 
scalei0.50.  0.50.  1.01: 
closeobjf ); 
callobjfhouse); 

editobjf  house): 

objreplace(houselooktag): 

lookat(cx,cy,cz,rx,rv.rz.0.0); 

objreplace(housetranstag); 

translate(-40.0.  0.0,  -Roadlen  -  100.0); 

objreplacefhousescaietag); 

scale(0.80.  0.80,  1.0); 

closeobjf); 

callobjfhouse); 

editobjfhousel); 

objreplacefhousellooktag): 

lookat(cx,cy,cz,rx,ry,rz.0,0); 

objreplacef  house  ltranstag); 

translate(300.0,  0.0,  -Roadlen  -  55.0); 

objreplacef  house  lscaletag); 

scale(0.50,  0.50.  1.0); 

closeobjf); 

callobjfhousel); 

/*   EDIT  STEERING  WHEEL    */ 

editobj(steerwheel); 
objreplacef  steerwheeltag); 
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rotate((int)  -(steer_wheel_angle  *  10  *  rad_to_deg).  'Z' 

closeobj(); 

callobj  (steerwheel) ; 

/*    EDIT  ODOMETER   */ 

editobj  (odometer); 

objreplace(odotag  1 ) ; 

charstr(thousandc); 

objreplace(odotag2); 

charstr(hundredc); 

objreplace(odotag3): 

charstr(tenc): 

objreplace(odotag4): 

charstr(unitc); 

closeobj(): 

callobj  (odometer); 

if  (showclock) 

{ 

color  (WHITE): 

cmov2i(100,  750); 

charstr(clockc); 

color(BLACK); 

} 

if  (aucop) 

{ 
color(CYAN); 

cmov2i(400,  750): 
charstr("AutoPilot  Mode"); 
color(BLACK); 
} 


'*    TESTING  AREA  */ 

if  (keypressed  ==  V  ||  keypressed  ==  'Z') 
if  (debug)  debug  =  FALSE; 
else  debug  =  TRUE; 

if  (debug) 

{ 

cmov2i(575,  280): 

charstr("Command  Speed  (km/h)  "); 

sprintf(temp_string,"/x.2f, speed  *  mps_to_kmph); 

charstr(temp  string); 

cmov2i(575,  250); 

charstr( "Steering  (degree)  "); 

sprintf(temp_string,"%.2f", steer   wheel    angle  *  rad    to   dej 

charstrftemp   string); 
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/*  cmov2i(575,  220): 
charstr("Mousex  "); 

sprintf(temp_string,"/:od",cal_mousex); 
charstr(temp_string);    */ 

cmov2i(575.  180); 

charstr("Turning  Response  Gain  "); 
sprintf(temp_string,"%.3f". turning   response   gain) 
charstr(temp_string); 

cmov2i(575,  150): 

charstrf  "Heading  Angle  Gain  "): 

spnntf(temp   stnng,',<>:c.3f".heading_angle_gain); 

charstr(temp_stnng); 

cmov2i(575.  120); 

charstr("Prediction  Time  "); 

sprintfjtemp   stnng."°"c.2f".  predict  ion    time): 

charstr(temp   string): 

i 

/ 

'*    EDIT  TIMER    * 

if  (keypressed  ==  't'      keypressed  ==  'T') 
if  (showtimer)  5ho%vtimer  =  FALSE: 
else  shownrner  =  TRL'E: 

if  (showtimer) 

{  cmov2i(575,  310): 
charstr("lntegration:  "); 
charstr(timec);  } 

/*    EDIT  WARNING  INDICATOR    */ 

if  (state_vector[3|  >  0) 
{  editobj(warning); 
objreplace(braketag); 
color(WARN); 
if  (alarm) 

{ 

if  (keypressed  ==  's'  ||   keypressed  ==  'S') 
if  (bell)  bell  =  FALSE; 
else  bell  =  TRUE; 
if  (bell) 

{ 

setbell('2'); 

ringbell(); 

} 
objreplace(dangertag); 
color(CYAN); 

} 
else 
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{ 

objreplace(dangertag); 

color  (WARN); 

} 

/*   ENGINE  WARMING  UP   */ 

if  (count  <  1000) 

{  objreplace(temptag); 
color(WARN);  } 

*    ENGINE  REACHED  NORMAL  TEMPERATURE   * 

if  ((count  >  1000)  kk  (count  <  5000)) 
{  objreplace(temptag); 
color( YELLOW);  } 

/*    ENGINE  OVERHEATING    *  ' 

if  (count  >  5000) 

{  objrepiace(  temptagj: 
color(RED);  } 

objreplace(beittag): 
color(WARN); 

closeobj();  } 
else 

/*   BRAKE  SIGNAL  FOR  CAR  STOP   */ 

{ 

editobj(  warning); 

objreplace(braketag); 

color(RED); 

closeobj(); 

} 

callobj  (warning). 

/*    EDIT  HEADING  INDICATOR   */ 

/*    Compute  heading  using  vehicle  state  vector    */ 

if  (state  vectork!  <  0.0)  headingrad  =  2*PI+state_vector[4|; 

else  headingrad  =  state  vector|4J; 
no_of_round  =  (headingrad*180.0/PI)/360.0; 
headingdeg  =  headingrad*180.0/PI  -  (float)  no_of_round*360; 

editobjfheading   meter); 

objreplace(transll); 

translate(heading   xpos-20.0-4.5*headingdeg.  4.0,  0.0); 

closeobj(): 
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callobjf heading   meter); 

/*    EDIT  SPEEDOMETER  INDICATOR    * 

/*    2.5  factor  is  for  converting  to  the  dashboard  display  */ 

speedbar  =  181.0  -  state_vectorl3]  *  mps   to   kmph  *  2.5; 

editobj  (speedometer ) ; 
objreplace(transl4); 
translate(0.0.  speedbar.  0.0); 
closeobjj); 
callobj  (speedometer): 

/*    EDIT  FUEL  GAUGES    */ 

*  Stop  :  no  consumption  * 
'*  Speed  above  100  :  consumption  is  20%  higher 

if  (state   vector;3!  >  0.0) 

Lf  (State    vecfcor[3j  <  100.0) 

fuelquant  =  fuelquant  -  consumption: 

eise  fueiquant  =  fuelquant  -  i..2*consumption: 

fuelbar  =  fuelquant   MAXFUEL*320.0+14.0: 

if  (fueiquant  <  0.0)  fueidown  =  -1000. U: 

editobj  (fuel); 

objreplace(fuell); 

rectf(106. 0,14. 0,149.0. fuelbar): 

closeobj(); 

callobj(fuel); 

/*  EDIT  CRASH  INFO  DISPLAY  FOR  OFF-ROAD  */ 

pushmatrix(); 
pushattributes(); 

translate  ( 0. 0, crashdown, 0. 0) ; 

/*    Set  all  warning  lights  when  crash    */ 

if  (crashdown  ==  -1000) 

{ 

autop  =  FALSE; 

editobj(warning); 

objreplace(braketag); 
color(RED); 
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bell  =  FALSE: 
objreplace(dangertag) ; 
color(RED); 

objreplace(  temptag ) ; 
color(RED); 

objreplace(belttag); 
color(RED); 

closeobj(): 

callobj(warning): 

} 

color(RED): 

rectf(0. 0.1385. 0.1023. 0.1767.0): 

color(BLACK); 
cmov2i(370.1576j: 
charscn"CRASH"): 
cmov2i(370.1560); 
charstr("OFF  THE  ROAD"): 

cmov2i(370,1544); 

charstr(;,PUSH  ALL  THREE  MOUSE  BUTTONS  TO  EXIT"): 

popattributes(); 
popmatrix(); 

/*  EDIT  CRASH  INFO  DISPLAY  FOR  FUEL  DELETION  */ 

pushmatrix(): 
pushattributes(); 

translate  (0.0,fueldown, 0.0); 

color(MAGENTA); 

rectf(0.0, 1385.0,1023. 0,1767.0): 


color(BLACK); 
cmov2i(370,1576); 
charstr("STOP"); 
cmov2i(370,1560): 
charstr("FUEL  DEPLETED"): 

cmov2i(370,1544); 
charstif'PUSH  ALL  THREE  MOUSE  BUTTONS  TO  EXIT"); 

popattributesQ; 
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popmatrix(); 

swapbuffersQ; 

+  -i-count; 

}  /*  while  loop  */ 

color(BLACK); 

clear(); 

swapbuffersQ; 

clear(): 

swapbuffersQ: 

finish(); 

gexit(); 

}  /*  main  * 

CHECK       KEYBOARD 

*xxxxx^xxXxxxxxxxxxxxxxxxxxxxxxxxx*xxxtxxxx*x*xxxxxxxx*xx*x: 

■  *  Keyboard  keys  can  be  used  to  controlled  steer   wheel    angle. 
Keys  pressed  are  queued  whereas  the  mouse  is  not. 
Keys  increase  :ne  angie  by  a  smaller  imount.      * 

checkkevbd() 
{ 

keypressed  =  NULL; 

if  (qtest()) 

{ 

qread  ( &  key  pressed ) ; 


/*    Display  help  information 


*  / 


if  (keypressed  ==  'h'  ||  keypressed  ==  'H') 
help(); 

/*  printf("%d\n", keypressed);  * 

} 
}    /*  checkkeybd  */ 
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B.      Circuit. c 

/* 

Build  the  entire  road  circuit. 

*/ 

^include  "road.h" 

extern  Tag  roadlooktag; 
extern  float  Roadwidth.  Roadlen: 
extern  float  Bendradiusl: 
extern  Angle  Fov: 

BUILD       THE       RALLY       CIRCUIT 


I^^XJKXXXXX^ 


maketheroad  ( road ) 
Object  *road; 

/ 

i 

Dimension    temp,  i: 
Dimension    high  =  3.2; 

Colorindex  signbg       =  YELLOW: 
Colorindex  upsign       =  RED: 
Colorindex  rightsign  =  BLUE; 

*road  =  genobj(); 

makeobj(*road); 

pushmatrix(); 

pushviewport(); 

viewport(0.  XMAXSCREEN,  385,  YMAXSCREEN] 

setdepth(0,1023); 

perspective(Fov,  1023.0/385.0.  0.0,  1023.0); 

roadlooktag  =  gentagQ; 

maketagf  roadlooktag): 

lookat(0.0.  0.0.  0.0,  0.0.  0.0,  0.0,  0); 

FIRST  STRETCH  OF  ROAD 

surf(0.0,  0.0,  0.0,  Roadwidth,  Roadlen,  BLACK); 
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Build  the  sign  "START" 

7 

temp  =  -5.5; 

color(  WHITE); 

pushmatrix(): 

translate(temp  +  4.0.  0.0,  0.0); 

rotate(-900,'X'); 

letter('T'.  BLACK); 

popmatrix(); 

colon  WHITE); 

pushmatrix(); 

translate(temp  +  2.0.  0.0.  0.0): 

rotate(-900.'X'): 

letterf'R'.  BLACK): 

popmacrixf); 

color(  WHITE): 

pushmatnx(): 
translate!  temp.  0.0.  0.0): 
rotate(-900.  X"' 
letterl'A".  BLACK): 
popmatrixl  '•; 

color  ( WHITE); 

pushmatrix(): 

translate(temp  -  2.0.  0.0.  0.0): 
rotate(-900,'X'): 
letter('T',  BLACK); 
popmatrix(); 

color  (WHITE): 

pushmatrix(): 

translate(temp  -  4.0,  0.0,  0.0); 

rotate(-900,'X'): 

letter('S'.  BLACK); 

popmatrix(); 

/* 

Build  the  sign  "TURN"  before  the  bend 

7 

color(WHITE); 

pushmatrix(); 

translate(-2.0,  0.0,  -(Roadlen  -  5.0)); 

rotate(-900,'X'); 

letter('N\  BLACK); 

popmatrix(); 
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color(  WHITE); 

pushmatrix(); 

translate(-4.0.  0.0,  -(Roadlen  -  5.0)); 

rotate(-900,'X'); 

letter('R',  BLACK); 

popmatrix(); 

color  (WHITE); 

pushmatrix(); 

translate(-6.0.  0.0.  -(Roadlen  -  5.0)); 

rotate(-900,'X;); 

letter('U'.  BLACK): 

popmacrix(); 

color(  WHITE); 

pushmatrix(); 

cranslate(-8.0.  0.0.  -(Roadlen  -  5.0)): 

rotate(-900,'X'); 

letter('T':  BLACK); 

popmacrix(); 


Build  a  series  of  arrow 


for  (temp  =  8.0;  temp  <  Roadlen:  temp  +=  40.0) 

{ 

pushmatrixQ; 

translate(0.0,  0.0.  -temp); 

rotate(-900,'X'); 

polyarrow(0.7,  1.2,  0.0,  WHITE); 

popmatrix(); 

} 

/* 

Create  1st  uparrow  signboard 

I         7 

pushmatrix(); 
translate(10.0,  0.0,  -5.0); 
signb(l.9,  2.5.  3.0,  signbg); 
popmatrix(); 
pushmatrix(); 
translate(10.0,  high,  -5.0); 
polyarrow(0.7,  1.2,  0.0,  upsign); 
popmatrix(): 
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/* 


Create  2nd  uparrow  signboard 


*  / 
/ 


pushmatrix(); 

translate (-7.0,  0.0.  -(Roadlen/3.0)); 

signb(1.9.  2.5,  3.0,  signbg): 

popmatrix(); 

pushmatrix(); 

translate(-7.0,  high,  -(Roadlen.  3.0)); 

poly  arrow  (0.7,  1.2.  0.0.  upsign): 

popmatrixQ: 


/* 
/ 


First  road  bend 


pushmatnxi 

transiatel  Bendradiusi  -  Roadwidth  12.  0.0.  -Roadlen): 

rotate(-900.  'X'): 

bend(); 

popmatrix( ): 


Build  lnd  right  turn  signboard 

7 

pushmatrix(): 

translate(7.0.  0.0.  -(Roadlen-5.0)); 

signb(1.9,  2.5,  3.0,  signbg); 

popmatrix(); 

pushmatrix(); 

translate(6.3,  4.0,  -(Roadlen-5.0)); 

rotate(-900,'Z'); 

polyarrow(0.7.  1.2,  0.0,  rightsign): 

popmatrix(); 

/******************************* 

SECOND  STRETCH  OF  ROAD 

******************************** 

pushmatrix(): 

temp  =  Bendradiusl  -  Roadwidth '2; 


/ 
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translate(temp.  0.0,  -Roadlen  -  temp): 

rotate(-900.  'Y'); 

surf(0.0,  0.0,  0.0,  Roadwidth.  Roadlen.  BLACK); 

popmatrixQ; 

/* 

Build  a  series  of  road  strips 


*/ 


for  (i  =  temp  +  3.0;  i  <  Roadlen;  i  —  =  20.0) 

{ 

pushmatrix(): 

translate(i.  0.0,  -Roadlen  -  temp); 

surf (0.0.  0.0.  0.0.  3.0.  1.0,  WHITE); 

popmatrixQ; 

\ 


'reaie  3rd  uoarrow  signboard 


ousnmatrixi  ) : 

iransiate(temp  —  50.0,  0.0.  -fi.oadlen  -  temp  -  Roadwidth  I: 

rotate(-900,'Y'); 

signb(1.9,  2.5,  3.0,  signbg); 

popmatrix(); 

pushmatrix(); 

translate(temp  +  50.0,  high.  -Roadlen  -  temp  -  Roadwidth): 

rotate(-900.'Y'); 

polyarrow(0.7.  1.2,  0.0,  upsign); 

popmatrix(); 

/* 

Second  road  bend 

*/ 

pushmatrixQ; 

temp  =  Bendradiusl  -  Roadwidth/2  -f  Roadlen; 

translateftemp.  0.0,  -Roadlen); 

rotate(-900,  'X'); 

rotate(-900,  'Z'); 

bend(); 

popmatrix(); 

/* 
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Build  2nd  right  turn  signboard 

7 

pushmatrix(); 

translate) temp  -  Roadwidth.  0.0.  -Roadlen  -  Bendradiusl); 

rotate(-900,'Y'); 

signb(1.9,  2.5.  3.0,  signbg): 

popmatrixQ; 

pushmatrLx(); 

translate)  temp  -  Roadwidth.  4.0.  -Roadlen  -  Bendradiusl  -  0.7); 

rotate(-900,'Y'); 

rotate(-900.'Z'); 

poly  arrow  1 0.7.  1.2.  0.0.  nghtsign); 

popmatrix(); 


THIRD  STRETCH  OF  ROAD 


rc^^xxxxx^ 


pushmatnxi  ); 

temD  =  2  *  Bendradiusl  -  Roadwidth  —  Ftoadlen; 

transiate|iemp.  0.0.  0.0); 

surf (0.0.  0.0,  0.0.  Roadwidth.  Roadlen.  BLACK); 

popmatrixQ; 


/* 
/ 


Create  a  series  of  arrows 

7 

for  (i  =  Roadlen:  i  >  5.0;  i  -=  20.0) 

{ 

pushmatrixQ; 

translate(temp,  0.0.  -i); 

rotate(-900,'X'): 

rotate(-1800.  'Z'); 

poly  arrow  (0.7.  1.2,  0.0,  WHITE); 

popmatrix(); 

} 

/* 

Create  4nd  uparrow  signboard 

7 
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pushmatrix(); 

translate(temp  -+•  Roadwidth.  0.0.  -Roadlen  +  10.0): 

rotate(-1800,'Y'): 

signb(1.9,  2.5.  3.0,  signbg): 

popmatrix(); 

pushmatrix(); 

translate  (temp  —  Roadwidth.  high.  -Roadlen  ■+-  10.0) 

rotate(-1800,'Y'); 

polyarrow(0.7,  1.2,  0.0,  upsign); 

popmatrix(); 


/* 


Third  road  bend 


*  i 
I 


pushmatrix(  •; 

temp  =  Bendradiusi  -  Roadwidth   2  —  Roadlen: 

translateltemp.  0.0.  0.0); 

rotate|-900.  'X'); 

rotatei-1800.  "ZT): 

bend(); 

popmacrixf ): 


:     *    *    X-    ■*.      «      K      1      x      .       .       ■       ■;      ■-       1       i        -  rr      x.     X      c.     *     .1      I  :      I       :       .       r       .       . 


FOURTH  STRETCH  OF  ROAD 


*********  *************  ********** 

/ 


pushmatrix(); 

temp  =  Bendradiusi  -  Roadwidth/2: 

translate(temp,  0.0,  temp); 

rotate(-900,  'Y'): 

surf(0.0.  0.0,  0.0,  Roadwidth,  Roadlen,  BLACK); 

popmatrix(); 

/* 

Create  a  series  of  arrows 

7 

for  (i  =  temp  +  10.0;  i  <  temp  +  Roadlen:  i  +=  20.0) 

{ 

pushmatrixQ; 

translate^,  0.0,  temp); 

rotate(-900,'X'); 

rotate(900,'Z'); 

polyarrow(0.7,  1.2.  0.0.  WHITE); 
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popmatrix(); 
} 

Create  5nd  uparrow  signboard 

*/ 

pushmatrixf): 

translate!  Roadlen.  0.0.  Bendradiusl  —  2.0); 

rotate(-2700,'Y'); 

signb(1.9,  2.5.  3.0.  signbg); 

popmatrix(); 

pushmatrixf ); 

translate(Roadlen.  high.  Bendradiusl  —  2.0) 

rotate(-2700.'V); 

polyarrow(0.7.  1.2.  0.0.  upsign): 

popmatrixf): 


"STOP"  sign  Defore  me  jna  of  circuit 

* 

temp  —  1.5  *  Bendradiusl: 
color(WHITE): 
pushmatrixf ): 
translateftemp.  0.0.  70.0): 
rotate  (900, 'Y'); 
rotate(-900,'X'); 
letterfT'.  BLACK); 
popmatrix(); 

color(WHITE); 

pushmatrixf); 

translateftemp.  0.0,  75.0): 

rotate(900.'Y'); 

rotate(-900,'X'); 

letterf'O',  BLACK); 

popmatrixf): 

color(WHITE): 

pushmatrixf); 

translateftemp,  0.0,  80.0); 

rotate(900,'Y'); 

rotate(-900,'X'); 

letterfT',  BLACK); 

popmatrixf); 

colorf  WHITE); 
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pushmatrix(); 
translate(temp,  0.0,  84.0); 
rotate(900!'Y'); 
rotate(-900,'X'): 
leUer('S'.  BLACK); 
popmatrix(); 

popviewport(); 

popmatrix(); 

closeobj(); 

}     '*  maKetheroad 
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C.      Integrate. c 

/* 

Runge-Kutta  2nd  order  or  Euler-Heun  numerical  integration 

V 

#include  "road.h" 

extern  floac  heading    angle   rate   gam.  velocity    time   consant: 
extern  float  turning   response    gain,  heading    angle    gam: 
extern  float  steer   wheel    angle,  speed,  state    vector! 5i; 
extern  float  car   time,  deltat.  cmd    psi    dot: 


:?xxxx*x«x*zxjxj:*: 


INTEGRATION 


■omDute    new    -aaiei  autop  i 
Boolean  autoD: 


float  xcapi5i,  xaot  5  : 
int  i; 

derivativefstate   vector,  xdot.  autop); 
for  (i  =  1:  i  <  =  ~SYSTEM_ORDER;  ++i) 

/*    Euler  prediction    */ 

xcapjii  =  state  vectorjii  -f  xdotji;  *  deltat: 

car  time  =  car_time  —  deltat; 
derivative(xcap.  xdot,  autop); 
for  (i  =  1;  i  <=  SYSTEMORDER:  ++i) 

/*  Trapezodial  correction  */ 

state   vectorii]  =  (state   vectorii    +  xdot  i 
*  deltat  +  xcap[i])/2.0; 

}     /*  compute   new   state  */ 

/ 

DERIVATIVE 

derivative(work   vector,  xdot,  autop) 

Boolean  autop. 

float  work    vectorj  .  xdot[]; 
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{ 

xdot(l'|  =  cos(work   vector[4])  *  work    vectorj3j; 
xdot[2l  =  sin(work_vectori4J)  *  work   vector[3j; 

if  (!autop) 

xdot|3]  =  -  (l/velocity_time  consant)  *  work   vectoriS] 
+  (1/ velocity    time   consant)  *  speed; 
else 

xdot!3!  =  0;    /*  no  acceleration  for  autopilot  */ 

if  (!autop) 

xdoti4<  =  turning   response   gain  *  work   vector,3 
*  steer_wheel    angle: 
else 

{ 

xdot|4l  =  cmd    psi   dot; 

i 
f 

}      *  derivative  * 
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D.      Display. c 

/* 

This  module  generates  all  the  vehicle  dashboard  indicators. 

1.  Speedometer 

2.  Odometer 

3.  Compass 

4.  Fuel  Meter 

5.  Help  Panel 

6.  Warning  Panel 

7.  Steering  Wheel  Display 

Some  of  the  ideas  here  were  adopted  from  fitsim.c. 

=  include  "road.h'' 

extern  Coord  latn  Z    21.  ratri  3    2;; 

extern  Tag  transi,  transl2.  cranslS,  transl4.  trans22,  fuell: 
extern  Tag  odotagl.  odotag*2.  odotagS.  odotag4.  steerwheeltag: 
extern  Tag  dangertag.  iemDtag,  belttag,  orakecag,  transll: 
extern  doac  Heading    xpos: 


SPEEDOMETER 


makethespeedometer(  speedometer) 
Object  'speedometer; 

{ 

Icoord  charxpos,  posl.  pos2,  tempx,  tempy; 

Object  meter, meternum; 

posl  =  467;  pos2  =  150; 
tempx  =  posl  +  90: 
tempy  =  pos2  +  80; 
charxpos  =  posl  +  30; 

/*    Generate  outline  for  speedometer  dial    * / 

meter=genobj(); 

makeobj(meter); 
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color(BLACK); 

rectfi(posl,  pos2,  tempx.  tempy): 

color  (WHITE); 

rectfi(posl  +  10,  pos2-H0.  tempx-10,  tempy-10); 

color(BLACK); 

cmov2i(posl,pos2-15); 
charstr("    km/hr    "): 

latriiOl  jOi  =  posl: 
Latri[0][l] =190-9; 

latri  lii0t  =  posl  —  25: 

latriili  L  =  190: 

.atri-1  Oj=posl; 
lacrii2'Mi  =  L90-9: 

polf2(3,latri); 

ratri|0][OI=tempx; 
ratriiOj[li  =  190-9; 

ratn  l][0]=tempx; 
ratri[l][l]=190+9; 

ratri|2][0J  =  tempx-25; 

ratri[2][l]=190; 

polf2(3,ratri); 

closeobjQ: 

/*      Generate  number  in  speedometer  display    * j 

meternum  =  genobj(): 

makeobj(meternum): 

color(BLACK): 

cmov2i(charxpos,000): 

charstr("000"); 

cmov2i(charxpos,030); 

charstr("010"); 

cmov2i(charxpos,060); 

charstr("020M); 

cmov2i(charxpos,090); 

charstr("030"); 

cmov2i(charxpos,100); 
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charstr("040"); 

cmov2i(charxpos,125): 

charstr("050"): 

cmov  2i(charxpos,  150); 

charstr("060"): 

cmov2i(charxpos,175); 

charstr("070"); 

cmov2i(charxpos.200); 

charstr("080u); 

cmov2i(charxpos.225): 

charstri"090"': 

cmov2i(cnarxpos.250): 

charstrC'100"): 

cmov2i(cnarxpos.275); 

charstif'llO"); 

cmov2i(charxpos.300); 

:harstr("120"); 

cmov2i(charxpos.325); 

cha.rsxrr'lZiy"  . 

cmov  2i(  c  h  arxoos . '.',  50 1 ; 

charstr("140"); 

•:mov2iicnarxDos. .;7." ) 

-harstrr'lSO'M: 

cmov2i(charxpos.400); 

charstr("160"}: 

cmov  2i(charxpos.425  i ; 

charstr("170"); 

cmov2i(charxpos.450); 

charstr("180"): 

cmov2i(charxpos.475); 

charstr("190"); 

closeobj(); 

/*     Put  all  pieces  of  speedometer    together     * 

*  speedometer = genobj  () ; 
makeobj(*  speedometer); 

/*  Draw  the  boundary    */ 

callobj(meter); 

/*    Draw  the  display  speedometer  in  the    window  */ 

scrmask(charxpos.tempx,pos2  +  10.tempy-10); 

pushmatrix(); 
transl4  =  gentag(); 
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maketag(transl4); 
translate(0. 0,0. 0.0.0); 
callobj(meternum); 
popmatnx(); 

/*    Reset  screenmask  to  full  size  screen    */ 
scrmask(0, 1023,0, 767); 

viewport(0, 1023. 0.767); 

closeobjQ; 

}     /*    makethespeedometer    * 

FUEL      METER 


makefuel(fuei) 
Object  'fuel: 


Coord  fuelxl.  fueL\2,  fuelyl,  fuely2; 
Object  fuelbound.fuellevel: 

fuelxl  =  102.0;  fuelx2  =  fuelxl  +  51.0; 
fuelyl  =  10.0;  fuely2  =  340.0: 

/*  Generate  outline  for  fuel  indicator  */ 

fuelbound  =  genobj() : 
makeobj(fuelbound); 

color(BLACK); 

rectf(fuelxl.  fuelyl,  fuelx2,  fuely2); 


cmov2(107. 0,345.0): 
charstr(Mfuel"): 

/*  Generate  hash  marks  for  fuel  levels  */ 

linewidth(3); 

move(fuelx2.  fuely2-30.0,  0.0); 
rdr(5.0.  0.0.  0.0): 
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/*  cmov2(fuelx2-6.0.  fuely2-35.0); 
charstr("  Full");  */ 

move(fuelx2,  fuelyl+60.0.  0.0); 
rdr(5.0,  0.0,  0.0); 

/*  cmov2(fuelx2-6.0.  fuelyl-f  55.0); 
charstr("  Empty");  */ 

linewidth(l); 

closeobj(); 

I*  Generate  the  fuel  level  bar  that  moves 

fuellevel  =  genobj(): 
makeobj(fuellevel); 

colon  WHITE); 

rectf(fuelxl-r4.0,  fuelyl— 4.0,  fuebc2-4.G,  fueiy 2-4.0); 

closeobJO; 

'*  Put  all  pieces  of  fuel  :ogether  * 

*fuel=genobj| ): 
makeobj(*fuel); 
callobj  ( fuelbound) ; 

callobj(fuellevel); 
color(  YELLOW); 

fuell  =  gentag(); 

maketag(fuell): 

rectf(fuelxl+4.0,  fuelyl-4.0,  fuelx2-4.0.  fuely2-4.0); 

color(BLACK); 

closeobj(); 

}    /*    makefuel    */ 

/♦♦a********************************************************** 
HELP       PANEL 


makehelp(help) 
Object  *help: 
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{ 

*help=genobj(): 
makeobj(*help); 

color(BLACK): 


rectfi(10,10,90.340); 
coior(WHITE): 
rectfi(15, 15, 85,335); 

color(BLACK): 

*  Generate  info  on  display 

linewiathi  2  J; 

cmov2i|  10.345); 
charstr("     help 

cmov2i(32.315); 
charstr("Exit"); 
co ion  RED): 
circfi(29: 300,6); 

circfi(50.300,6): 
circfi(71,300,6); 

color(BLACK); 

cmov2i(21,275); 

charstr("  Speed  "); 

circi(29,260.6); 

circi(50.260,6): 

color(RED): 

circfi(71. 260,6); 

color(BLACK): 

cmov2i(21,235); 

charstrf"  Brake"); 

color(BLACK): 

circi(29.220,6); 

color(RED); 

circfi(50. 220,6); 

color(BLACK); 

circi(71.220,6); 

cmov2i(21,195); 
charstr("    Stop"); 
color(RED); 
circfi(29,180,6); 
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color(BLACK): 
circi(50,180.6); 
circi(71, 180,6); 

cmov2i(10,115); 
charstr("    Press    "); 
cmov2i(l0,95); 
charstr("       h      "); 
cmov2i(10,75); 
charstrf"     for     "); 
color(RED): 
cmov2i(  10.55  i; 
oharstrf"    HELP"): 

* 
cmov2i(21.135): 
charstri "  Brake'M: 
:irci(29.l20.6); 
colon  RED): 
circfi(50.120.6): 
colon  BLACK): 
circi(71.120.6); 

cmov2i(32.95); 
charscr(»'STOP"): 
coior(BLACK); 
circi(29,80:6); 

color(RED): 

circfi(50.80,6): 

circfi(71,80,6); 

*/ 

color(BLACK); 

closeobj(): 

}    /*    makehelp    */ 

ODOMETER 

maketheodometer(  odometer) 
Object  *odometer; 

{ 

Icoord  posl,  pos2.  tempx.  tempy: 

Coord  temp,  charx,  chary; 

posl  =  467;  pos2  =  50; 

tempx  =  posl  +  90;  tempy  =  pos2  +  50; 
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*odometer  =  genobj(); 
makeobjf*  odometer); 

color(BLACK): 

rectfi(posl,  pos2,  tempx,  tempy); 

color(  WHITE): 

rectfi(posl  +  5,  pos2  +  5,  tempx-5,  tempy-5); 

color(BLACK); 

temp  =  (tempx  -  posl  -  10)/4; 
move2(posH-5-|-temp,  pos2  — 5): 
draw 2 (posl  —  5  —  temp,  tempy-5); 

move2(posl-t-5-(-temp*2.  pos2^5): 
draw  2  (posl -^5— temp*  2.  tempy-5); 

move2(posl^5-i-temp,:3.  pos2  — 5); 
draw  2  (posl  —  5  —  temp*",  tempy-5 1; 

move2(posl  —  5— temp* 4.  pos2  — 5): 
draw2(posl  —  5  —  temp*4.  fcempy-5); 

charx  =  posl  —  5— temp-  2;  chary  =  (tempy-pos2)    2  — pos2-5.0: 

cmov2(oharx.  chary): 
odotagl  =  ^encagj1: 
maketag(odotagl): 
charstr("0"); 

cmov2(charx  +  temp,  chary); 
odotag2  =  gentag(): 
maketag(odotag2); 
charstr("0"); 

cmov2icharx  +  temp*2,  chary); 
odotagS  =  gentag(); 
maketag(odotag3); 
charstr("0"); 

cmov2(charx  +  temp*3,  chary); 
odotag4  =  gentag(): 
maketag(odotag4); 
charstr("0"); 

color(BLACK); 

cmov2i(posl.pos2-15); 

charstr("     meter"); 

closeobjQ; 

}  /*  maketheodometer  */ 


I************************************************************* 
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WARNING         PANEL 


***************  ******************  ********************  ********/ 

/ 


makewarning(  warning) 
Object  "warning; 

{ 

Coord  tempx,  tempy,  posl.  pos2: 

Coord  ix,  iy.  tempyl.  tempy'2,  tempyS.  tempy4.  hg: 

posl  =  840.0;  pos2  =  10.0; 

tempx  =  posl  —  140.0:  tempy  =  340.0; 

iy  =  ix  =  20.0; 

"warning  =  genobjf); 
makeobj  (*  warning  J : 

color(BLACK): 

rectf(posl.  pos2.  tempx.  tempy); 

hg  =  (330  -  5xiy)   4; 

nangertag  =  gentag(); 

maketagfdangertag); 

colorfREDi: 

rectfl posl  —  ix.  pos2— iy.  tempx-ix.  pos2-f-iy— hg); 

color(BLACK); 

cmov2(posl  +  (tempx-posl) /2  -  25.0,  pos2+iy  +  hg/2-5.0); 

charstr(  "Danger"); 

temptag  =  gentag(); 

maketag(temptag); 

color(RED): 

rectf(  posl  ^ix,pos2^iy*2^hg,  tempx-  ix,pos2  +  iy*2  +  2*  hg): 

color(BLACK): 

cmov2(posl  -  (tempx-posl)/2  -  12.0,  pos2  +  iyx2-rhg+hg/2-5.0): 

charstr("Temp"); 

belttag  =  gentag(): 

maketag(belttag); 

color(RED); 

rectf  ( posl  -l-ix,pos2~iy*3-;- hg*2.  tempx-ix,  pos2  +  iy*3-f 3*  hg); 

color(BLACK); 

cmov2(posl  -  (tempx-posl)  '2  -  40.0,  pos2+iy*3+hg*2-fhg/2-5.0); 

charstr("Seat  Belt"): 

braketag  =  gentag(): 

maketag(braketag); 

color(RED); 

rectf  ( posl +  ix,pos2  +  iy*4-)-hg*3,  tempx-ix, pos2+iy*4  +  4*hg); 

color(BLACK): 

cmov2(posl  -  (tempx-posl)  '2  -  17.0,  pos2+iy*4+hg*3^hg  2-5.0): 
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charstrfBrake"); 

color(BLACK); 

cmov2(posl-r20.0,  tempy-r5.0); 
charstr("    Warning"); 

closeobj(); 

}    /*  makewarning  */ 


STEERING        WHEEL 

x   x    x  X   *   *    *.*.**    x    x   x    x    x    *    *   J-    *********  x    ***.»■-*<':*:**    *    x    -i    *J-tt.»iiii;«ti.^.«..<ii». 

makesteerwheel(steerwheel) 

Object  'steerwneei: 

i 
,  "steerwheei  =  genooj(): 
naKeoDjj  *steerwheei); 

pushmacnxi  j : 
color  (BLACK): 
:ircfi(512.  290.  40): 
color!  WHITE): 
circfi(512,  290,  30); 
color(BLACK); 

translate(512.0.  290.0,  0.0); 
steerwheeltag  =  gentag(); 
maketag(steerwheeltag); 
rotate(0,  'Z'); 
rectfi(-33,  -5,  33,  5); 

popmatrix(); 
closeobj(); 

}    /*  makesteerwheel  */ 

/************************************************************» 

HEADING        METER 

*************************************************************  / 


makeheading(heading   meter) 
Object  *heading    meter; 
{ 
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Object  meter,  theading: 

Coord  posl,  pos2.  tempx.  tempy; 

posl  =  heading   xpos;  pos2  =  350.0; 

tempx  =  posl  +  175.0: 

tempy  =  pos2  -+-  12.5; 

meter  =  genobj(); 

makeobj(meter); 

color(BLACK); 

rectf(posl-2.5.  pos2-2.5.  tempx— 2.5.  tempy— 2.5): 

color(  WHITE): 

rectflposl,  pos2.  tempx.  ^moy); 

cioseobj(): 

*    Generate  the  heading  on  top  of  the  terrain  map 

tneading=genobj( ) ; 
makeooj  jr  heading;: 
coiori  BLACK); 


cmov2(000.0.pos2-2.0); 
charstr{"340"); 

cmov2(045.0.pos2-2.0); 
charstr("350"): 


cmov2(090.0.pos2-2.0); 
charstr("360"); 

cmov2(135.0,pos2-2.0): 
charstr("010"); 

cmov2(180.0,pos2-2.0): 
charstr("020'*); 

cmov2(225.0,pos2-2.0): 
charstr("030"); 

cmov2(270.0,pos2-2.0): 
charstr("040M); 

cmov2(315.0.pos2-2.0); 
charstr("050"); 

cmov2(360.0,pos2-2.0); 
charstr("060"); 

cmov2(405.0,pos2-2.0): 
charstr("070M); 
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cmov2(450.0,pos2-2.0); 

charstr("080"); 

cmov2(495.0,pos2-2.0); 
charstr("090"): 

cmov2(540.0,pos2-2.0); 
charstr("100"); 

cmov2(585.0,pos2-2.0): 
charstr("110"); 

cmov2(6S0.0.pos2-2.0): 
charstr("120M): 

cmov2(675.0.pos2-2.0): 
charstr("130"}; 

cmov2(720.0,pos2-2.0); 

charstrfHO"): 

cmov2(765.0.pos2-2.0); 

charsr,r("150"l: 

cmov2(810.0.pos2-2.0): 

cnarscr("160'M; 

cmov2(855.0,pos2-2.0); 
charstr("170M); 

cmov2(900.0,pos2-2.0): 

charstr("180"); 

cmov2(945.0,pos2-2.0); 
charstr("190"); 

cmov2(990.0,pos2-2.0): 
charstr("200"); 

cmov2(1035.0,pos2-2.0): 
charstr("210"): 

cmov2(1080.0,pos2-2.0): 
charstr("220M); 

cmov2(ll25.0,pos2-2.0); 
charstr("230"); 

cmov2(1170.0,pos2-2.0); 
charstr("240"); 

cmov2(1215.0,pos2-2.0); 


139 


charstr("250"): 

cmov2(1260.0,pos2-2.0); 
charstr("260M); 

cmov2(1305.0,pos2-2.0); 
charstr("270"); 

cmov2(1350.0,pos2-2.0); 

charstr(M280"): 

cmov2(1395.0,pos2-2.0); 

charstr("290"): 

cmov2(1440.0,pos2-2.0): 

charstr("300M): 

cmov2(1485.0!pos2-2.0): 
charstr("310"): 

cmoy2(1530.0,pos2-2.0); 
charstr("320"): 

cmov2(1575.0.pos2-2.0): 

cnarstrl"330"): 

cmov2(1620.0,pos2-2.0); 

charstr("340"): 

cmov2(1665.0,pos2-2.0); 
charstr("350"); 

cmov2(1710.0,pos2-2.0); 
charstr("360"): 

cmov2(1755.0,pos2-2.0); 
charstr("010"); 

cmov2(1800.0,pos2-2.0); 
charstr("020"). 

color(BLACK); 

closeobj(); 

/*    Put  all  the  pieces  together    * 

*heading    meter=genobj(); 
makeobj(*heading   meter); 

/*    Draw  the  boundary  */ 
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callobj(meter); 

/*    Draw  the  heading  */ 

scrmask((int)  posl,(int)  tempx,(int)  pos2,(int)  tempy); 

pushmatrix(); 

transll=gentag(): 
maketag(transll). 

transiate(0. 0.0. 0.0.0); 

callobj(theading); 
scrmask(0. 1023, 0.767); 
popmacrix(); 

colorfRED); 

iinew\dth(4l: 

move2(posi  —  175.0/2,pos2): 

draw2(posl— 175.0  / 2. tempy): 

iinewidthi  I I; 


scrm  ask  (0.1023.0.767) 
cioseobj(j; 


}    /*  makeheading  * 
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Other. c 


/* 

This  module  contain  the  supporting  routines  for  building  the 
scenery  objects  like  the  clouds  and  mountains. 

*/ 

^include  "road.h" 

extern  Dimension  Roadlen.  Roadwiath.  Bendractiusl: 

extern  Tag  skylooktag.  cerrainiiootctag: 

extern  Tag  houselooktag.  housetranstag; 

extern  Tag  housescaletag; 

extern  Tag  houseilooktag.  houseltranstag: 

sxtern  Tae  nouseiscaletag: 

extern  Angle  Fov; 


3  K  \ 


makechesky(sky  | 
Object  *sky. 

{ 

*sky=  genobjf); 

makeobj(*sky); 

pushmatrix(): 

pushviewport(); 

viewport(0,  1023.  385,  767): 

setdepth(0,1023); 

perspective(Fov.  1023.0/385.0,  0.0.  1023.0); 

skylooktag  =  gentag(): 

maketag(  sky  look  tag); 

lookat(0.0,  0.0,  0.0.  0.0,  0.0,  0.0.  0); 

pushmatrix(); 

translate(O.C).  100.0,  50000.0): 

surf(0.0,  0.0,  0.0,  100000.0,  100000.0.  SKY) 

popmatrix(); 

popviewport(); 

popmatrix(); 

closeobj(); 

}    /*  makethesky  */ 
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/ 


CLOUDS      AND      MOUNTAINS 


**********************5=*************************************:l: 


maketerrain  1  (terrain  1 ) 
Object  *terrainl: 

{ 

Dimension  temp  =  -(Roadlen-1-500.0): 

Dimension  tempi  =  -(Roadlen+500.0): 
Dimension  tempy  =  0.0: 
Dimension  tempyl  =  100.0: 
Dimension  tempy2  =  350.0: 

*terrainl  =  genobj(); 
makeobj(*terrainl): 

Generate  some  ciouds 

pushmatnx(); 

pushviewport(): 

viewportlO.  1023,  385.  767): 

setdepth(0.1023); 

perspectivefFov.  1023.0/385.0.  0.0.  1023.0) 

rerrain  llootaag=  gentag(); 

maket  ag{  terrain  Hook  tag): 

lookat(0.0,  0.0.  0.0,  0.0,  0.0,  0.0.  0): 

pushmatrix(); 
color  (WHITE): 

translate(-1000.0,  tempyl,  temp): 
scale(l.0,  1.0.  1.0); 
rotate(-900,  'Y'); 
circf(0.0,  0.0,  40.0); 
circf(50.0,  0.0.  30.0); 
circf(40.0,  50.0,  40.0); 
popmatrix(): 

pushmatrixQ; 
color  (WHITE): 

translate(-1000.0,  tempyl,  temp); 
scale(l.0,  0.8,  1.0); 
circf(0.0.  0.0,  40.0); 
circf(50.0,  0.0,  30.0); 
circf(40.0,  50.0.  40.0); 
popmatrix(); 

pushmatrix(); 
color(WHITE); 

translate(-2000.0,  tempyl,  temp): 
scale(2.0,  2.0.  1.0); 
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rotate(-900.  'Y'); 
circf(0.0.  0.0,  40.0); 
circf(50.0,  0.0,  30.0): 
circf(40.0,  50.0.  40.0); 
popmatrix(); 

pushmatrix(); 
color(  WHITE); 

translate(-2000.0,  tempyl,  temp); 
scale(2.0,  0.8,  1.0): 
circffO.O.  0.0,  40.0): 
circf(50.0.  0.0,  30.0): 
circf(40.0.  50.0.  40.0); 
popmatnx(); 

pushmatrix(): 
color(  WHITE): 

translate(  2000.0.  tempyl.  temp): 
scale( 3.0.  2.0.  1.0); 
ror,ate(-900.  'Y'); 
circfjO.O.  0.0.  40.0): 
circf(50.0.  0.0.  30.01: 
circf(40.0,  50.0.  40.0): 
popmatrix) ): 

pushmatnx(): 
color(  WHITE): 

translate(2000.0,  tempyl,  temp); 
scale(2.0.  0.8,  1.0); 
circf(0.0.  0.0,  40.0); 
circf(50.0.  0.0.  30.0): 
circf(40.0,  50.0,  40.0); 
popmatrix(): 

/*  Generate  some  mountains  */ 

pushmatrix(): 

translate(-2000.0.  tempy,  temp); 
scale  (1.0.  0.1.  0.0); 
color(MOUNTAINl); 
arcf(0.0.  0.0.  400.0,  0,  1800); 
popmatrix(); 

pushmatrix(); 

translate(-1500.0.  tempy,  temp); 
scale  (1.0,  0.2,  0.0); 
color(MOUNTAIN); 
arcf(0.0,  0.0,  250.0,  0,  1800); 
popmatrix(); 

pushmatrix(): 
translate(-1000.0,  tempy,  temp); 
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scale  (1.0,  0.1.  0.0): 
color(MOUNTAINl); 
arcf(0.0,  0.0,  300.0,  0,  1800); 
popmatrixQ; 

pushmatrix(); 

translate(  1000.0.  tempy,  temp): 

scale  (1.0,  0.2.  0.0); 

color(MOUNTAIN): 

arcf(0.0,  0.0.  250.0,  0.  1800): 

popmatrixl ); 

pushmatrix(): 

translate)  1500.0.  tempy.  temp): 

scale  (1.0,  0.1,  0.0): 

color(MOUNTAINl); 

arcf(0.0.  0.0.  300.0.  0.  1800): 
ooDmatrix(); 

ousnmatrixl ); 

oransiatei  2000.0.  tempy,  temp): 

scale  (1.0,  0.1.  0.01: 

color(MOUNTAINl); 

arcf(0.0,  0.0,  300.0,  0.  18001: 

popmarTix(); 

popviewporn  j: 

popmatrixQ; 

closeobj(): 

}    /*  maketerrainl*/ 

BUILD       SURFACES 

surf(x,  y,  z,  width,  length,  roadcolor) 
Coord  x,  y,  z; 
Dimension  width,  length; 
Colorindex  roadcolor; 

{ 

Coord  vertice(5][3j; 
Dimension  temp; 
temp  =  width/2; 

vertice[0][0j  =  x; 
vertice[0][l]  =  y; 
vertice[0][2:  =  z; 

verticefljfOi  =  x  -  temp; 
vertice[l][lj  =  y; 
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vertice[l][2  =  z: 

vertice[2][0j  =  x  -  temp: 

vertice[2]il;  =  y; 

vertice[2ji2  =  -length; 

vertice|3|jO;  =  x  —  temp: 

vertice[3][lj  =  y; 

vertice|3lj2  =  -length: 

vertice;4i!0  =  x  —  temp- 

vertice:4!.  1  =  v: 


color(roadcolor): 
polf'S.vercice); 

\ 
J 


3UILD        ROAD        BENDS 

sxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx^xxxxxxxxxxxxxxxxxxxxxxxxacrr. 

bend I ) 

coior^BLACX): 

arcfi(0,  0,  (int)  Bendradiusl.  900.  1800): 

color(FIELD); 

arcfi(0,  0,  (int)  (Bendradiusl  -  Roadwidth),  900,  1800); 

} 

.*************>!*  ****x********  *****************************  a:*** 
/ 

BUILD       SIGNBOARD 

********************:»:******************:**********************    •' 

signb(width.  length,  height,  bcolor) 
Dimension  width,  length,  height: 
Colorindex  bcolor: 

{ 

Coord  vertice  5j  3  : 

Coord  verticel|5][3]; 

Dimension  legwidth,  tempi,  temp2,  tempS; 

legwidth  =  0.2;  /*  size  of  supporting  leg  */ 

tempi  =  length/2; 

temp2  =  length/4; 

tempS  =  legwidth/2; 

vertice[0][0i  =  0.0: 

verticej0][ll  =  height; 
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vertice[0]|2;  =  0.0; 

vertice[l]|0j  —  -tempi; 
vertice[l][l]  =  height; 
vertice[l][2j  =  0.0; 

vertice[2][0!  =  -tempi; 
vertice(2][lj  =  width  +  height; 
vertice[2][2j  =  0.0; 

vertice!  3l  lOi  =  tempi: 
vertice!3i|l    =  width  —  height: 
verticet3:;2    =  0.0; 

vertice[4j[0i  =  tempi: 

vertice[4][l]  =  height: 
verticei4i;2;  =  0.0: 

color(  bcolorj: 
polf(  5.  vertice); 

*  Generate  the  supporting  leg 
verticelfOjIOl  =  0.0; 
verticeliolllj  =  0.0: 
verticellOi  .2'  =  0.0; 


verticel[lj[0j  =  -tempS; 
verticel[l][l]  =  0.0: 

verticelll  [2    =  0.0: 


verticel[2][0]  =  -tempS; 

verticel[2]il]  =  height; 
verticel[2]|2j  =  0.0; 

4 
verticel[3]|0]  =  tempS; 
verticel[3][lj  =  height: 
verticel[3]|2j  =  0.0; 

verticel[4]IO]  =  temp3; 
verticel[4][l]  =  0.0; 
verticel(4][2]  =  0.0; 

color(BLACK); 
polf(5,verticel); 
}     /*  signboard  */ 

BUILD       ARROW 
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polyarrow(  body  width,  headwidth.  high,  arrowcolor) 

Colorindex  arrowcolor: 

Dimension  bodvwidth,  headwidth,  high; 

{ 

Coord  vertice[5]!3,.  verticel[3]j3j; 
Dimension  bodyheight  =  0.8: 
Dimension  headheight  =  1.5; 
Dimension  tempi  =  bodywidth,'2; 
Dimension  temp2  =  headwidth  '2; 

vertice[0]iOi  =  0.0: 
vertice[0j|ll  =  0.0  -  high: 
vertice[0J!2!  =  0.0: 

verticeflUOi  =  -tempi: 
verticejll !  1  i  —  0.0  —  high: 
verticeili'21  =  0.0: 

vertice[2]i0l  =  -tempi: 

verticei2!  1    =  bodyheight  —  high: 

vertice[2ji2]  =  0.0: 

vertice!3!  Oi  =  tempi: 
vertice!3!l!  =  bodyheight  —  high: 
verticef3||2j  =  0.0: 

verticei4ji0i  ~  tempi: 
vertice[4][l]  =  0.0  -t-  high: 
vertice[4j}2!  =  0.0: 

color(  arrowcolor) : 
polf(5,vertice); 

verticell0][0i  =  -temp2;  « 

verticel!0][ll  =  bodyheight  +  high: 
verticeli0][2;  =  0.0; 

verticelil][0!  =  0.0; 

verticeli  l](lj  =  headheight  -  high; 

verticel[l][2]  =  0.0; 

verticel(2][0]  =  temp2; 

verticel!2][l!  =  bodyheight  +  high; 

verticel|2][2;  =  0.0; 

color  (arrowcolor); 
polf(3,verticel); 
}  /*  poly  arrow  */ 

y******** ************************************* **************** 

BUILD  HOUSE 
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************************************************************* 

makehouse(  house) 
Object  *house: 

{ 

float  sidewall|5]!2i.  roofi4 j[2],  chmwalll;4j[2j; 

float  chmwall2i4jj2j,  sideroof[4J[2j; 

*house=genobj(); 
makeobj(*house): 

pushmatnxl ): 

pushviewportf): 

viewportfO.  1023.  385.  767): 

setdepth(0.1023); 

perspective(Fov.  1023.0/385.0.  0.0.  1023.0): 

houseluoktag  =  gentagQ; 

maker  ag|  houseiooktag j : 

iooKatlO.U.  0.0.  0.0.  0.0.  0.0.  0.0.  01: 


pusnmainxi 


,i- 


aouserransrag    -  gentagy 
"naKetag(houserransrag): 
translate (0.0.  0.0.  0.0): 
housescaier.ae  =  ^enragi 
maketagl  housescaieragj; 
scale!  l.U.  1.0.  i.0): 

/*  Draw  front  wall  */ 

color(WALL); 
rectf(-1.0,0. 0,16. 0,10.0): 

/*  Draw  side  wall  * 


sidewall|0j[0j  = 

(-4.0): 

sidewall|0j[lj  = 

(2.0); 

sidewall(l]l0]  = 

(0.0): 

sidewall[lj[l]= 

(0.0); 

sidewallj2][0j  = 

(0.0); 

sidewall[2][l]  = 

(10.0); 

sidewall[3][0]  = 

(-3.0); 

sidewall[3][l]  = 

(13.0); 

sidewall[4][0j  = 

(-4.0); 

sidewall[4][lj  = 

(11.5); 

color(SIDEWALL); 

polf2(5,sidewa! 

1): 

/*  Draw  roof  and  sideroof  */ 
roof[0][0j  =  (-1.0); 
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roofl2]iO 
roof|2)jl 
roof i 3   0 


roof|0][l]  =  (10.0); 
roof[l][0]=(17.0); 
roof!l][lj  =  (10.0); 

=(14.0); 

=  (13.5); 

=(-3.0); 
roofl3]|l]  =  (13.5); 

color(ROOF); 
polf2(4,roof); 

sideroof[0][0i=(-4.3) 
sideroof|0j[lj=(11.5) 
sideroofjl][0j=(-4.0) 
sideroofi  l][l  =(  11.5) 
sideroofl2  [0l=  -2.8) 


sideroofi  2! 

:1  = 

13 

.1 

sideroofi  3 1 

i0t  = 

-3 

3) 

sideroofi  31 

ill  = 

13 

.5 

color(SIDEROOF! 
oolf2(  4. sideroofi: 


D 


raw  '.vmcow 


color(  WINDOW): 
rectf(2.0. 4.0,5. 0,7.0); 

rectf(9. 0.4. 0,12. 0,7.0); 

/*  Draw  window  frames  */ 

color(FRAME); 

linewidth(4): 
move(2. 0,4. 0,0.0); 


draw 
draw 
draw 
draw 
move 
draw 
move 
draw 


5.0,4.0.0.0); 
5.0,7.0,0.0); 
2.0,7.0,0.0); 
2.0,4.0.0.0); 
3.5,4.0,0.0): 
3.5,7.0.0.0); 
2.0,5.5.0.0); 
5.0,5.5,0.0); 


move(9. 0,4. 0,0.0): 
draw(12. 0,4. 0.0.0); 
draw(12. 0.7. 0.0.0); 
draw(9. 0,7. 0,0.0); 
draw(9. 0,4. 0,0.0); 
move(10.5.4.0,0.0); 
draw(10.5.7.0.0.0); 
move(9.0,5.5,0.0); 
draw(12.0,5. 5.0.0); 
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*  / 


/*  Draw  chimney  front  wall  */ 

color(SIDEWALL); 
rectf(1.0,12.0,3.0,14.2); 

/*  Draw  the  hole  on  the  chimney 

color(BLACK); 
rectf(1.5,13.3,2.5,13.8); 

*  Draw  top  and  side  walls  of  the  chimney  * 

chmwallllOi  (01=0.5: 
chmwallliOiil  =12.5: 
chmwallljl!|0!  =  1.0: 
chmwallialil=12.0; 
chmwallllOi  [0J=1.0; 
chmwalll  2    1=14.2: 
chmwaill  Z    0  =0.5. 
chmwaill  I3j[l  =14.7: 

color(CHMWALLl): 

polf2(4.  chmwaill): 

chmwall2{0l  [01=2.5: 
chmwail2!0i!li  =  14.7: 
chmwall2!li!Oi  =  3.0: 
chmwall2[l][l]=14.2; 
chmwall2[2][0]=1.0; 
chmwall2[2j[li  =  14.2; 
chmwall2!3J[0j=0.5: 
chmwall2!3!Jlj  =  14.7; 

color(CHMWALL2): 

polf2(4.chmwall2): 

popmatrix(): 

popviewport(); 

popmatrix(); 

closeobj(); 

}    /*  makehouse  */ 

makehouself  house  1) 
Object  *housel; 

{ 

float  sidewall[5][2j?  roof[4][2j.  chmwalll[4][2]; 

float  chmwall2|4][2j,  sideroof[4][2]; 

*housel=genobj(); 
makeobj(*housel); 

pushmatrix(); 
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« 


pushviewport(); 

viewport(0.  1023.  385,  767); 

setdepth(0,1023): 

perspective(Fov,  1023.0/385.0.  0.0.  1023.0); 

housellooktag  =  gentag(); 

maketagf  house  Hook  tag): 

lookat(0.0,  0.0,  0.0,  0.0,  0.0.  0.0.  0); 

pushmatrix(): 
houseltranstag  =  gentag(); 
m aket ag ( house  1  trans tag); 
translated. 0,  0.0,  0.0); 
houselscaletag  =  gentag(); 
maketag(houselscaletag): 
scale(1.0.  1.0,  1.0); 

/*  Draw  front  wall  * 

color(WALLl): 

rectfj-1. 0.0. 0.16. 0.10.0): 

Draw  side  ••vail 

sidewalll0j[0j  =  (-4.0); 
sidewallioj[li  =  (2.0); 
sidewallillf0i  =  (0.0); 
sidewailllj[l!  =  l0.0): 
sidewall}2J[0J  =  (0.0); 
sidewall[2][l]=(10.0); 
sidewall!3)(0]  =  (-3.0): 
sidewall[3][l]  =  (13.0); 
sidewall!4][0]  =  (-4.0): 
sidewalll4][l]  =  (11.5); 

color(SIDEWALLl); 
polf2(5,sidewall): 

/*  Draw  roof  and  sideroof  */ 

roof[0][0]=(-1.0); 
roof[0][l]=(10.0); 

roof(l][0]  =  (l7.0): 
roof(l][lj  =  (l0.0): 
roof[2][0)=(14.0); 
roof[2][l]=(13.5); 
roof[3][0]=(-3.0); 
roof(3][l]  =  (l3.5): 

color(ROOFl); 
polf2(4,roof); 

sideroof(0][0]  =  (-4.3); 
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sideroof{0][l  -(11.5); 
sideroof[l][0i=(-4.0): 
sideroof[l][l;=(11.5); 

sideroofJ2JIO:  =  (-2.8): 
sideroofJ2Jjl  =(13.1); 
sideroof[S][0;=(-3.0): 

sideroofj3j[l:  -(13.5); 

color(SIDEROOF): 
polf2(4.sideroof); 

/*  Draw  window  * , 

color)  WINDOW): 
rectf(2. 0.4. 0.5. 0.7.0): 
rectf(9. 0.4. 0.12. 0.7.0): 

'*  Draw  window  frames 

coiort  FRAME): 
Linewidth(4); 
movej  2.0.4.0.0.0  I: 
Iraw(  5.0.4.0,0.0); 
draw(5. 0.7. 0.0.0); 
draw]  2.0.7.0.0.01: 
lrawi'J.  !. 4. 0.0.0): 
move(3. 5.4.0. 0.0); 
draw(3.5.7.0.0.0): 
move(2.0.5.5.0.0): 
draw(5.0.5.5.0.0); 

move(9.0,4. 0.0.0): 
draw(12. 0.4.0,0.0): 
draw(12.0.7.0.0.0): 
draw(9. 0.7. 0.0.0): 
draw(9. 0.4. 0.0.0); 
move(l0.5.4.0.0.0); 
draw(10. 5, 7.0.0.0); 
move(9.0,5.5.0.0): 
draw(12.0,5.5,0.0); 

/*  Draw  chimney  front  wall  */ 

color(SIDEWALLl); 
rectf(1.0,12. 0,3.0.14. 2); 

/*  Draw  the  hole  on  the  chimney  */ 

color(BLACK); 
rectf(1.5,13.3,2.5,13.8): 

/*  Draw  top  and  side  walls  of  the  chimney  */ 
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chmwalll[0][0j=0.5; 
chmwalll[0j[lj  =  12.5; 
chmwalllilj[0i  =  1.0; 
chmwallljl][lj  =  12.0; 
chmwalll[2j[0!  =  1.0; 
chmwalll[2][l'  =  14.2; 
chmwalll[S][0]=0.5; 
chmwallli3jjl;  =  14.7; 

color(CHMWALLl); 
polf2(4,chmwalll); 

chmwall2[0l[0]=2.5; 
chmwall2IO!|l!  =  14.7; 
chmwall2[l][0j=3.0; 
chmwall2:l;;i  =14.2; 
chmwall2i2il0j  =  1.0; 
chmwall2(2iili  =  14.2; 
chmwall2!3i  [01=0.5: 
chmwall2f3ijlj  =  l4.7; 

=olor(CHMWALL2); 

polf2(4!chmwa!12); 

ooDmacnxi  ); 

popviewDorr !  ); 

popmatrix(); 

closeobj(); 

}    /*  makehousel  */ 
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F.      Help.c 


This  module  creates  the  welcome  and  help  screen. 

7 

^include  "road.h" 

static  int  parray[4][2j  =  {{275. 600}, {250.625}, {275. 625}, {300. 600}}; 
static  int  parrayl[4][2]  =  {{275, 475}, {250, 500}, {275, 500}, {300. 475}}; 

WELCOME        DISPLAY 

welcomef ) 


*  Loop  until  we  get  a  mouse  button  hit 

color(  YELLOW); 

clear(); 


color(BLUE); 

rectfi(200,625,300,700): 
rectfi(200,600, 225,625); 
polf2i(4,parray); 

rectfi{325,600,425,700) 
rectfi(450,600,550.700) 
rectfi(575,600,675,700) 
polf2i(4,parrayl); 

rectfi(200,475,225,500) 
rectfi(200. 500.300,575) 
rectfi(325,475,425,575) 
rect6(450, 475, 550,500) 
rectfi(450.500,475,575) 
rectfi(575.475,675,5O0) 
rectfi(575, 500, 600,575) 
rectfi(700,525,800,575) 
rectfi(737,475,762,525) 

color(YELLOW); 

rectfi(225,650, 275,675) 
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rectfi( 
rectfi( 
rectfi( 
rectfi( 
rectfi( 
rectfif 
rectfif 
rectfi( 
rectfif 


350,625 
475,600 
475,650 
575,625 
625,625 
225,525 
350,525 
350,475 
725,550 


.400,675) 
.525,625) 
.525,675) 
.600,675) 
.650,675) 
.275,550) 
,400,550) 
.400,500) 
,775,575) 


color(BLACK); 

cmov2i(200.350); 

charstr(" Welcome  to  the  world  of  ROAD  RALLY"); 

cmov2i(200,325): 

charstr("You  drive  a  car  on  a  road  controlling"); 

charstrf"  its  speed  and  direction  with  the"): 

cmov2ii  200.300); 

charstrf  "mouse.  To  exit  the  program"); 

charstrt"  at  any  rime  press  all  three  mouse  simultaneously."); 

cmov'.'il '200.275): 

charstrf"  After  the  bell  ring,  to  continue  with  the"); 

charstrf"  program  press  the  left  mouse  button.''*: 

cmov2i(200,250); 

charstr("HELP  is  available  by  pressing  the  keyboard  key  h"); 

charstrf"  while  the  car  is  moving."); 

linewidth(S); 

cmov2i(200,175); 

charstrf'Author  :  Tan  Chiam  Huat"); 

color(RED): 

cmov2i(200,150); 

charstrf  "This  image  is  contributed  by:  Mike  Whiting"); 

color(BLACK); 

linewidth(l): 

swapbuffersf): 

}    /*    welcome    */ 

HELP         DISPLAY 
*****************»..,. ., , . . i F  *  * i ******************  ******/ 

help() 

{ 

Icoord  x    =  100; 
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Icoord  y    =  340; 
Icoord  iy  =  22; 

/*  Loop  until  we  get  a  mouse  button  hit  */ 

while  (getbutton(MOUSEl)  ==  0  kk  getbutton(MOUSE2) 
getbutton(MOUSE3)  =  =  0) 
{ 

pushmatrLx(): 

pushviewport(); 

viewport(0.  1023.  0.  380); 

ortho2(0.0.  1023.0.  0.0.  380.0); 

color(WHITE); 

clear(); 

color(BLACK); 

linewidth(5); 


~  0  &L 


cmov2i 
charstr 

cmov2i 

charstr 


cmovji 
charstr 

cmov2i 
charstr 

cmov2i 
charstr 

cmov2i 
charstr 

cmov2i 
charstr 

cmov2i 
charstr 

cmov2i 
charstr 

cmov2i 
charstr 

cmov2i 
charstr 


x.  y i; 

"HELP  INFORMATION:  Press  anv  mouse  button  to  continue' 


x.  y  -  iy| 
"KEY 


REMARK' 


"a  or  A  or  Left  button       :  Accelerate"); 

x,  y  -  3  *  iy): 

"b  or  B  or  Middle  button    :  Brake"); 

:  Clock  switch"); 

"e  or  E  or  Right  button      :  Emergence  Stop"); 

:  Help"); 

:  Odometer  reset"); 

:  Autopilot"); 

:  Sound  danger"); 

:  Timer  (Integration)"); 


x,  y  -  4  *  iy); 
"c  or  C 


x,  y  -  5  *  iy); 


x,  y  -  6  *  iy); 
"h  or  H 

x,  y  -  7  *  iy); 
"o  or  O 

x,  y  -  8  *  iy); 
"q  or  Q 

x,  y  -  9  *  iy); 
"s  or  S 

x,  y  -  10  *  iy); 
"t  or  T 
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cmov2i(x,  y  -  11  *  iy); 

charstr("z  or  Z  :  Information"); 

cmov2i(x,  y  -  13  *  iy); 

charstr("To  TURN  LEFT  :  Move  mouse  to  the  left"); 

cmov2i(x,  y  -  14  *  iy); 

charstr("To  TURN  RIGHT  :  Move  mouse  to  the  right"); 

linewidth(l); 
popviewporti); 
popmatrix(): 
swapbuffers(); 

}     '*    while    */ 

1       *  help  * 
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G.      Letter. c 

/*  This  routine  is  written  for  the  IRIS-2400 
This  is  routine  letter.c... 

This  file  supports  routine  title. c,  which  constructs  the 
title  page  of  the  font  building  utility  "BUILDFONT." 

This  file  contains  routines  to  display  block  alphabetic  characters 
suitable  for  inclusion  into  graphics  objects.    These  letters  are 
used  instead  of  IRIS  FONTS  when  one  desires  to  treat  them  as 
graphics  objects  that  can  be  rotated,  scaled,  etc.  (font  char- 
acters can't) 

This  file  includes  routines  for  27  characters.  "A"  through  "Z". 
and  also  ;*:"  and  "  "  (blank)  (bur  not  "G"."Q"."V"."  W","X".Z") 

The  routine  draws  the  desired  letter  in  absolute  coordinates, 
in  the  center  of  the  display. 

To  use  these  routines,  the  coior  desired  for  the  letter  must 
be  specified  when  the  object  is  created  (in  the  user  program), 
and  the  desired  backgound  color  must  be  passed  to  the  routine. 

Original  version  written  by  J.  Artero  and  R.  Kirsch:  current 
version  written  by  L.  Williamson 

*  / 

^include  "gl.h" 
^include  "device. h" 

letter  (asci.backcolor) 

int  asci;  /*  index  of  character  we  want  to  display    */ 

Colorindex  backcolor;  /*  specified  background  color  */ 

{ 

Coord  box  [8][2j;  /*  vector  of  coordinates  forming  the 

vertices  of  a  letter  object  */ 


switch(asci) 
{ 

case  'A': 

box[0][0l=4.6875; 
box[0][l]=3.25; 
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box[l][0j=4.9375: 
lj=4.25: 
0j=5.0625; 
11=4.25: 
01  =  5.3125; 
11=3.25; 


box[l] 
box[2] 
box|2] 
box[3] 
box|3l 


polf2(4,box); 

color(backcolor); 

box[0][0j=4.8125; 

box[0][li=3.25: 

box(lj[oi=4. 84375: 

boxil!Jli=3.375: 

box[2][0]=5. 15625; 

box[2][l]=3.375; 

box[3j[0i=5.1875: 

box|3i[l!=3.25; 

polf2(4.box): 

boxl0i!0!=4.875: 
boxOi  1  =3.5: 

boxili!0i  =  5.0: 

box[li[lj=4.0: 

boxi2il0!=5.125: 

boxl2l[li=2.5: 

polf2(3,box); 

break: 


case 


'B': 


box(0][0]=4.6875 
box[0]jl]=3.25: 

box[l][0|=4.6875 

box[lMlj=4.25: 

box[2][0J=5.1875 

box[2j[l]=4.25; 

box[3][0]=5.3125 

box(3][l]=4.125; 

box|4][0j=5.3l25 

box[4][lj=3.375; 

box[5][0]=5.1875, 

box[5][l]=3.25; 

polf2(6,box); 

color(backcolor); 

box[0][0]=5.25; 

box[0][l]=3.8125; 

box[l][0]  =  5.3125; 

box[l][l]  =  3.875; 
box(2][0]=5.3125; 

box|2iili=3.75; 


160 


polf2(3,box); 

box[0][0j=4.8125; 
box[0][l]  =  3.375; 
box[l][0j=4.8125; 


box|l][ll  = 

=  3.75; 

boxJ2J[oi  = 

=5.125; 

box[2][l]= 

=3.75; 

boxl3][0!  = 

=  5.1875; 

box[3][l]= 

=3.6875: 

box|4][0]  = 

=  5.1875: 

boxi4i[li- 

_  9    « 9  <7  -  . 

box[5j[0j= 

=5.125; 

boxi5l[  1  i  = 

_  9     9"-. 

—  o  .  u  l  O  . 

polf2(6.b 

ox); 

boxi0l{0i  =  4.8  125 
boxi0][lj=3.875: 
boxjl|[0j=4.8125 
boxillj  11=4. 125 
box[2j[0j=5.125 
oox, J'1!   =4.125 
box{S|J0l=5.1875 
box:.'::!  =4.0625 
boxl4!J0J=5.1875 
boxj4J|  L|=3.9375 
boxj5|[0j=5.125; 
box!5J[li  =  3.875; 
polf2(6.box): 


break; 


case 


'C: 


box[0][0]= 

=4.6875; 

box[0][l]= 

=  3.375; 

box[l][0]= 

=4.6875; 

box[l][l]= 

=4.125; 

box(2][0j  = 

=4.8125; 

box[2][lj  = 

=4.25: 

box|3][0]  = 

=5.1875; 

box[3j[lj- 

=4.25; 

box[4][0]  = 

=  5.3125; 

box{4][l]= 

=4.125; 

box[5][oj  = 

=  5.3125; 

box[5][l]  = 

=  3.375: 

boxJ6][0]  = 

=  5.1875; 

box[6][l]  = 

=  3.25; 

box[7][0j  = 

=4.8125; 

box[7][l]= 

=  3.25; 

polf2(8,box); 
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color(bac 

kcolor); 

box[0][Oi  = 

=4.8125; 

box[0](lj  = 

=3.4375; 

box[lj[Oi  = 

=4.8125; 

box[l][l]= 

=4.0625; 

box[2][0]: 

=4.875; 

box[2][lj: 

=4.125; 

box[8][0]  = 

=5.125; 

boxj3][lj- 

=4.125: 

boxi4i[0l 

=  5.1875 

boxi4][li 

=  4.0625 

box  5i |0i 

=5.1875 

box;5i  1 

=  3.4375 

boxi6l|0i 

=5.125; 

box(6J[lj 

—  tj  .0  i  0  . 

boxTiioi 

=4.875; 

box|7|  1 

=  3.375; 

polf2(8.box); 

recti"  ( 5. 1875.3. 5.5.3125.4. 00 1 

>reaK: 
:a.se    D': 


boxi0i|0i=4.6875: 
boxiOlil  =3.25: 
box!lji0;  =  4.6875: 
box[l][l]=4.25; 
box(2][0j=5.1875: 
box[2][lj=4.25; 
box!3ij0i  =  5.3125; 
box[3J[li=4.125; 
boxJ4][0j  =  5.3125; 
boxi4i[l=3.375; 
box[5][0!=5.1875; 
box|5][lj  =  3.25; 
polf2(6,box); 

color(backcolor); 
boxi0|i0i=4.8125; 


box|0 
boxjl 
box[l 

box  (2 
box  J  2 
box[S||( 
box[3 
box  [4 
box  [4 
box  1 5 
box  1 5 


=  3.375; 

=4.8125; 

=4.125; 

=5.125; 

=4.125; 

=  5.1875; 

=4.0625; 

=5.1875; 

=  3.4375; 

=5.125; 


1  =3.375; 
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polf2(6,box); 

break; 

case  'E': 

rectf(4.6875.4.125.5.25,4.25); 
rectf(4.6875,3.25.5.3125.3.375) 
rectf(4.6875.3.25.4.8125,4.25); 
rectf(4.8125.3.75,5.0625,3.875) 

break; 

case  'F': 

rectf(4.6875.3. 25.4.8125.4.25): 
rectf(4. 6875. 4. 125.5.3125.4.25) 
rectf(4.8125,3.75.5.125,3.875); 

break: 


:ase 


■H': 


rectt(4.6875.3.25.4.;il25.4.25): 
rectf(4.8125. 3. 6875. 5. 1875.3.8125) 
rectf(5. 1875,3.25.5.3125.4.25); 

break; 

case  T: 

rectf(4. 6875, 4. 125.5.3125.4.25); 
rectf(4.6875.3.25,5.3125.3.375); 
rectf(4.9375.3.25,5.0625,4.25); 


break; 

case  'J': 

box[0] 
box(0] 

01: 

1]  = 

=  4.6875; 
=  3.375; 

box[l] 

0]= 

=  4.6875; 

box[l] 

1]= 

=  3.625; 

box{2] 

0]: 

=5.3125; 

boxi2] 

1     : 

=  3.625; 

box[3] 

01: 

=  5.3125; 

box[3] 

1]  = 

=3.375; 

box[4] 
box[4] 

box[5] 

0]: 

1 ':: 

=  5.1875; 

=3.25; 

=4.8125; 

box}5] 

1]= 

=3.25; 

polf2(( 

u> 

ox); 
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rectf(5.2,3.625,5.3125,4.25): 


color(bac 

box[0][0] 

box[0 

box[l 

boxjl 

box[2 

box[2 

box  [3 

boxl3 

box  1 4 

boxi4 

boxJ5 

box  1 5 


[1J= 

[0]  = 
[1]= 

10}: 
[1]  = 

(0j  = 

|0I: 

iii: 

[0]: 

ill: 


kcolor); 
4.8125 
:3.4375 
=4.8125 
=3.625; 
=5.1875; 
=3.625; 
=  5.1875: 
=  3.4375; 
=  5.125: 
=3.375: 
=4.875: 


■  6.610: 


polf2(6.box): 

break; 

case  "K": 

rectf(4.6875.3.25.5.3125,4.25) 

colon  backcolori: 
boxi0ii0l=4.8125; 

box|0Jili=3.875; 
box[lj[0|=4.8125; 

boxjlj[lj=4.25: 
boxJ2][0]  =  5.125; 
box(2][lj=4.25; 
polf2(3.box); 

box[0][0j  =  5.02; 

box[0][lj=3.875; 

box[l][0]=5.3125; 

box[l][l]=4.25; 

box[2][0]  =  5.3125; 

box[2]jl]=3.25; 

polf2(3,box); 


boxjO]jO]=4.8125; 

box[0]|l]=3.25; 
box[l][0j=4.8125; 

box(l][lj=3.625; 

box[2](0]=4.9; 

box[2][lj=3.74; 

box(3][0J=5.14; 

box[3][lj=3.25; 

polf2(4.box); 
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case  'L': 

rectf(4.6875,3.25,4.8125,4.25); 
rectf(4.6875,3.25,5.3125.3.375) 

break; 

case  'NT: 

rectf(4.6875.3.25.5.3125.4.25); 

coior(backcoion: 
boxiOliOi  =  4.6875: 
boxiOji  11=4.25: 
boxjlj[0j=5.3125; 

box[l][lj=4.25; 
box;2!iO!  =  5.0: 
boxl2jill=3.75: 
poif2(3.boxj: 

boxi0][0l=4.8125; 

boxioj[lj=3.25: 

boxilj[0i=4.8125; 

boxjlj[lj=3.8125; 

boxl2!J0|=5.125; 

boxj2jjlj=3.25; 

polf2(3,box); 


boxfO] 

[0]= 

=4.875; 

boxjoj 

[1]= 

=3.25; 

boxjlj 

[01  = 

=5.1875 

boxjlj 

(lj: 

=3.8125 

boxl2] 

[0]= 

=5.1875 

box[2] 

[1]= 

=3.25; 

polf2( 

3. box); 

break; 

case  'N': 


rectf(4.6875.3.25  "  3125,4.25); 


color(backcolor); 

box[0][0j=4.8125; 

boxJO]  [1]=3.25; 

boxjl]jo]=4.8125 

box(l]}l]=3.9375 

box[2](0)=5.1875 

box[2)jll=3.25; 

polf2(3,box): 


box|0][0!=4.8125; 
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box[0][l]=4.25; 

boxjl][0]  =  5.1875; 

box[l][l]=4.25: 

box[2][0]=5.1875; 

boxf2jjl]=3.5625; 

polf2(3,box); 

break; 

case  'O': 

boxi0l(0l=4.6875: 


box:  ll[0|=4. 687c 

>: 

box[l][l]=4.125; 

box  2![0j=4.8125: 

boxi2!!ll  =  4.25: 

Doxi3|j0j=5.l875: 

box;3!!l!  =  4.25: 

boxi4j['oi=5.3125; 

boxi4Hli=4.125. 

boxi'5ijOJ=5.3125: 

boxioi  Lj=3.375; 

boxi6][0i=5.1875: 

3oxi6jjli=3.25; 

boxi7|J0J=4.8125; 

boxl7Jjlj=3.25; 

polf2(8,box); 

color(backcolor); 

box[0]|0]=4.8125: 

box[0][l]=3.4375; 

boxil][0]=4.8125; 

boxjl][l]=4.0625; 

boxi2][0l  =  4.875 

box[2][l]=4.125 

box[3][0j=5.125 

box[S][l]=4.125 

box[4J[0]  =  5.1875: 

box[4j(l)=4.0625; 

box[5][0)=5.1875; 

box[5][l)  =  3.4375; 

box(6j[0j  =  5.125; 

box!6][lj=3.375; 

box[7j[0]=4.875; 

box[7][l)=3.375; 

polf2(8,box); 

break; 


case  'P': 
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box!0||0]=4 


box[0] 

boxjl] 
boxjl] 
box[2] 
boxi2] 
box)  3] 
box[3] 
box[4] 
box:4l 


11=3 

0]=4 
11=4 
0j=5 

ii=4 

0)=5 
11=4 
0]=5 
1  =3 


.6875; 

.25; 

.6875; 

.25; 

.1875; 

.25; 

.3125; 

.125; 

.3125; 

.25: 


polf2(5.box); 

color(backcolor): 
boxl0j[0i=4.8125: 
box|0J[li  =  3.25; 
boxjlj[0j=5.3125: 
box!li!l:=3.8125: 
box;2!i0i=5.3125: 
box, 2'  1  =3.25: 
polf2(3,boxj: 

box|0l[0j=4.8125; 
boxjojflj=3.8125; 
box|l][0J=4.8125; 

boxil][lj=4.125 

ooxi2!!0i  =  5.125 

boxJ2][lj=4.125 

boxi3jJ0;=5.1875 

box!3][l]=4.0625 

boxJ4i[0i=5.1875 

boxi4][lj=3.875; 

boxJ5][0i=5.125; 

box!5|[ll  =  3.8125: 

polf2(6,box); 


rectf(4.8125,3.25,5.3125,3.6875); 
break; 


case  'R': 

boxlO] 

0]= 

=4.6875; 

boxjO] 

1    = 

=3.25; 

boxjl] 

0]= 

=4.6875: 

boxil] 

1]= 

=4.25; 

boxi2] 

0: 

=5.1875: 

box[2] 

1]  = 

=4.25; 

box(3] 

0]: 

=  5.3125; 

box}  3] 

1]: 

=4.125; 

box[4] 

0]  = 

=  5.3125; 

boxJ4] 

1]  = 

=  3.25; 

polf2(  = 

),box); 
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color(backcolor); 
box!0ji0]=5.1875; 
box[0][l]=3.625; 
box[l][0]=5.3125; 

box!l]!l}=3.75; 
box[2][0]=5.3125; 
box[2][l]=3.25; 
polf2(3,box); 

box[0l[0l=4.8125: 

75; 


boxfO) 
box,  II 
box:l| 

box:2] 

box(2] 

box;3j 

boxiSi 

box  4!iOI=5 

box  4    1  =3 

box; 5 1  0l=5 

box  5i 1 1 1  =  3 

poif2(6.box 


11= 
01=4. 
l]=4. 
0J=5. 

1]=4. 
0i=5. 
11=4. 


8125 
125; 
125; 
125; 
1875 
0625 
1875 
8125 
125: 


box  0l,0i=4.8l25: 
boxjoiili=3.25; 
boxilji0i=4.8125; 
boxii:  1  =3.625; 
box[2Ji0]=5.05; 
box[2]jl]  =  3.625; 
boxi3][0]=5.175; 
box[3]!l]  =  3.25; 
polf2(4,box); 

break; 

ise  'S': 


box 

0][0] 

box 

olfi] 

box 

lj[0j 

box 

iiii] 

box 

2](0] 

box 

2][1] 

box 

3][0] 

box 

3](1] 

box 

4][0] 

box 

4][1] 

box 

5][0j 

box 

5]|1] 

box 

6][0] 

box 

eli  i] 

box 

7]|0] 

=4.6875; 

=3.375; 

=  4.6875; 

=4.125; 

=4.8125; 

=4.25; 

=5.1875; 

=4.25; 

=5.3125; 

=4.125; 

=5.3125; 

=3.375; 

=  5.1875; 

=3.25; 

=4.8125; 
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box!7][l]=3.25; 
polf2(8.box); 

color(backcolor); 
box(0]|0]=4.8125; 

box[0][ll=3.4375; 
box  1]  01=4.8125: 


box[l 
box[2 

box[2 

box  13 
boxiS 
box  1 4 


11=3.75: 


0|=5.125; 

11=3.75: 
01=5.1875: 
li  =  3.6875: 
01=5.1875: 
box|4!ilt=3.4375: 
boxi5i  101=5. 125: 
boxJ5][li  =  3.375; 
box[6|[oj=4.875; 
boxi6l!  1  =.*'.37o; 
poif2(7.box): 

box|0l  0j=4.8125 
boxiOH  il=3.'j:;7.r:. 

boxjli  0i=4.8125 

boxilj[l|=4.0625 

boxJ2iioj=4.875; 

)oxi2l(li=4.l25; 

Doxi3!!0i  =  5.125: 

boxi3Jjl)=4.125; 

boxl4!10l  =  5.1875; 

box[4][lj=4.0625; 

boxi5J[0j=5.1875; 

box[5][lj=3.875; 

box[6j[oj=4.875; 

box[6J|lj=3.875; 

polf2(7,box): 


boxj0](0|=4.6875; 
box[0][l]=3.5625; 
boxll][0]=4.6875; 
box[l][l]=5.875; 

boxi2![0]=4.8125; 

box[2Jilj=3.75; 

boxj3][0l=4.8125; 

box!3][li=3.5625; 

polf2(4,box); 


box|0][0 
boxlOjjl 
box;l][0 

boxjljjl 
box[2][0 
boxl2l|l 


=5.1875; 
=3.875; 
=  5.1875; 
=4.0: 
=  5.3125; 
=4.0; 


169 


box[3][0!=5.3125; 

box[3][l)=3.75; 

polf2(4.box); 

break; 

case  "I": 

rectf(4.6875.4.125,5.3125,4.25) 
rectf(4.9375.3.25.5.0625.4.25); 
break; 

case  'U': 

box[0][0j=4.6875; 

box[0][lj=3.375; 

box[l][0j=4.6875; 

boxjlj   1  =4.25: 

box|2j[oi=5.3125: 

boxi2!'l:=4.25: 

box[3![0l=5.3125: 

box|3!|li=3.25: 

boxi4JJ0j=4.8125; 

oox  4i:  11=3.25; 

oolf2(5.boxi; 


color(backcoior); 
box[0]j0j=4.8125 
boxjoj[lj=3.4375 

box  1  10  =4.8125 


box[l 
box  [2 
box[2 
box  [3 

box|3 


1)=4.25: 

0]=5.1875; 

1]=4.25; 

0]  =  5.1875; 

11=3.5325; 
box[4J[0J=5.01; 
box[4][l]=3.375; 
box[5][0J=4.875; 
box[5][lj=3.375; 
polf2(6,box); 

box(0]|0]  =  5.0625; 
box[0][l]=3.25; 

box[l][0]  =  5.1875; 

box|l][lj=3.375; 
box[2][0j=5.1875; 
box[2][l]  =  3.25; 
polf2(3,box); 


case  'Y': 
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box[0 
box[0 
box[l 
box[l 
box[2 
box[2 
boxj3 
box  [3 
polf2( 


01=4.6875; 


=4.25; 
=4.9375; 
=  3.75; 
0j=5.0625; 

l)=3.75; 
0j=4.8125; 
lj=4.25; 
4,  box); 


boxi0l;0l=4.9375; 

boxlOl|li=3.75; 

box|l|[0i  =  5.0625; 

boxil]jl!=3.75: 

box|2j[0j  =  5.3125; 

boxf2i;i!=4.25: 

boxi3il0i=5.1875: 

box[3|jli=4.25; 

poif2(4.boxj; 

rectf(4.9375.3.25.5.0625. 

break: 


:ase 


rectf(4.9375,3.35.5.0625,3.60); 
rectf(4. 9375, 3.90. 5.0625,4. 15); 

break; 


case 


break; 
}    /*  end    switch  */ 
}        /*  end  routine  "letter"  */ 
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H.      Findsubgoal.c 

/* 

Look  for  the  next  subgoal  along  the  road 

*/ 

^include  "road.h" 

static  Boolean  start  =  FALSE: 

find   subgoal(roadmap.  no_coord.  where,  tolerance,  pred   distance,  vx.  vy.  vz] 

float  predjdistance: 

float  roadmap' j|3j; 

float  tolerance: 

float  vx.  vy.  vz; 

int  no   coord,  where: 

i 

float  dist.  cemp. 

floac  x,  y,  z: 
int  1: 

for  (i  =  where:  :       no   coord: i) 

x  —  roadmapiinO   -  vx: 
y  =  roadmapjijjl    -  vy: 
z  =  roadmap[i][2J  -  vz; 
dist  —  sqrt(x*x  +  y*y); 
temp  =  pred   distance  -  dist; 

/*  converts  negative  to  positive  */ 
if  (temp  <  0) 

temp  =  -(temp): 

if  (Istart) 
{ 

/*  This  works  only  when  autopilot  is  turned 
on  for  the  first  time  on  the  first  stretch 
of  the  cicuit.    Problem  if  otherwise.    */ 

if  (temp  <=  tolerance  &&  roadmap[i][l]  >  vy) 

{ 

start  =  TRUE; 

return(i); 

} 

} 
else 

if  (temp  <=  tolerance) 
{ 
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start  =  TRUE; 
return(i); 
} 
} 

/*  If  no  points  found,  return  an  error  code  */ 
return(-l); 

}    /*  find_subgoal  */ 
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I.       Map.c 


/* 


This  module  works  independently  from  the  rest  of  the  system. 
This  module  generate  the  road  map  for  autonomous  navgiation. 


7 


^include  <stdio.h> 
#include  <mach.h> 


i{) 


FILE  *fp: 

int  i: 

Road  Specification  * 
*  Note:  Must  match  that  used  in  the  carsimu.c  program 
float  bendradius  =  80. 0; 
float  roaawidtn  =  16.0: 
float  ieni  =  400.0: 
float  ien2  =  400.0: 
float  Len3  =  400.0: 
float  ien4  =  400.0: 
float  newx.  newy.  miss: 
float  calx,  caiy    start   raa; 
float  perstep   rad; 

float  step  =  1.0;         /*  road  map  increment  step  */ 
float  radl  =  bendradius  -  roadwidth/2; 
float  rad2  =  bendradius  -  roadwidth/2; 


float  rad3  =  bendradius 

float  lastxvalue; 

float  lastyvalue; 

float  xl,  yl,  zl; 

float  x2,  y2,  z2; 

float  x3,  y3,  z3; 

float  x4,  y4,  z4; 

float  x5,  y5,  z5; 

float  x6,  y6,  z6; 

float  x7,  y7.  z7: 

float  x8,  y8.  z8; 


roadwidth/2 


/*  Road  Segment  Specifications  */ 

xl  =  0.0;  yl  =  0.0;  zl  =  0.0: 

x2  =  0.0;  y2  =  lenl;  z2  =  0.0; 

x3  =  radl;  y3  =  y2  +  radl;  z3  =  0.0; 

x4  =  x3  +  len2;  y4  =  y3:  z4  =  0.0; 

x5  =  x4  +  rad2;  y5  =  y4  -  rad2;  z5  =  0.0; 

x6  —  x5;  y6  =  y5  -  len3;  z6  =  0.0; 

x7  =  xo  -  rad3;  y7  =  y6  -  rad3:  z7  =  0.0; 

x8  =  x7  -  len4;  y8  =  y7;  z8  =  0.0; 
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fp  =  fopen("roadmap","w"); 

newy  =  yl; 

for  (i  =  0:  newy  <=  v2;  ++i) 

{ 
#ifdef  DEBUG 

printf("%.2f  %.2f  %.2f\n*',xl,newy,zl); 
#endif 

fprintf(fp,"%.2f  %.2f  %.2f\n",xl,newy.zl); 

lastyvalue  =  newy; 

newy  +=  step; 

} 
newy  =  lastyvalue: 

miss  —  y2  -  newy; 
#ifdef  DEBUG 

printf("missl  ?"6.2f\n'\miss): 
#endif 

start    rad  =  0; 
if  (miss  >  0) 

{ 

start   rad  =  miss  i  rad  1; 

calx  =  cos(start    rad): 

caly  =  sin  (start   rad); 

newy  —  =  caly; 

newx  -f=  caix: 
^ifdef  DEBUG 

printf("%.2f  %.2f  %.2f\n>\x2+newx,y2^newy,z2); 
#endif 

fprintf(fp."%.2f  %.2f  %.2f\n",x2  +  newx,y2+newv.z2); 

} 

perstep  rad  =  step/ rad  1; 
for  (i  =  0:  newx  <=  x3;  — +i) 

I 

start   rad  +=  perstep  rad; 

calx  =  radl  *  cos(start   rad): 

caly  =  radl  *  sin(start   rad): 

lastxvalue  =  newx; 

lastyvalue  =  newy; 

newy  =  y2  4-  caly; 

newx  =  x2  —  (radl  -  calx); 

if  (newx  <  x3) 

{ 
#ifdef  DEBUG 

printf("%.2f  %.2f  %. 2f\n*\ newx, newy, z2); 
#endif 

fprintf(fp,"%.2f  %.2f  %.2f\n,,,newx,newy,z2); 

} 
} 

newx  =  lastxvalue; 
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newy  =  lastyvalue; 

miss  =  x3  -  newx; 
fifdef  DEBUG 

pnntf("miss2  %.2f\n".miss); 
#endif 

if  (miss  >  0) 

{ 

newx  =  x3  —  miss; 
#ifdef  DEBUG 

printf("%.2f  %.2f  %.2f\n",newx,y4,z3); 
#endif 

fprintf(fp,"%.2f  %.2f  %.2f\n")newx,y4,z3); 

} 

for  (i  =  0;  newx  <—  x4;  -r+i) 

{ 

lastxvalue   -  newx: 
newx  — =  step: 
if  (newx  <  =  x4) 

{ 
#ifdef  DEBUG 

printf("%.2f  %.2f  '7.2^  n;,.newx.y4.z3): 
=*endif 

fprintf(fp,"%.2f  %.2f  %.2An*\newx,y4?z3) 


newx  =  lastxvalue: 

miss  =  x4  -  newx: 
#ifdef  DEBUG 

printf("miss3  %.2f\n",miss); 
#endif 

start    rad  =  0: 
if  (miss  >  0) 

{ 

start    rad  =  miss/rad2; 

caly  =  rad2  *  cos(start   rad); 

calx  =  rad2  *  sin(start_rad); 

newy  =  y4  -  (rad2  -  caly): 

newx  =  x4  —  calx; 
#ifdef  DEBUG 

printf("%.2f  %.2f  %.2f\n",newx.newy,z4); 
#endif 

fprintf(fp."%.2f  %.2f  %.2f\n",newx,newy,z4); 

} 

perstep   rad  =  step /rad  1: 
for  (i  =  0;  newy  >=  y5;  ++i) 

{ 

start    rad  +=  perstep   rad; 

caly  =  rad2  *  cos(start    rad); 
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calx  =  rad2  *  sin(start_rad); 

lastxvalue  =  newx; 

lastyvalue  =  newy; 

newx  =  x4  -r  calx; 

newy  =  y4  -  (rad2  -  caly): 

if  (newy  >=  y5) 

{ 
#ifdef  DEBUG 

printf("%.2f  %.2f  %.2f\n'\newx.newy,z4); 
#endif 

fprintflfp."%.2f  %.2f  %.2f\n", newx. newy. z4); 

I 
} 

newx  =  lastxvalue: 

newy  —  lastyvalue; 

miss  =  newy  -  y5: 
Aifdef  DEBUG 

pnntf("miss4  %.2f'  n".miss): 
=endif 

if  (miss  >  0) 

') 

newy  =  y5  —  miss: 
#ifdef  DEBUG 

printf("%.2f  %.2f  %.2f\n"!newx,newy,s5); 
fFendif 

fpnntf(fp,"%.2f  %.2f  %.2f\n",newx.newv.z5): 

} 

for  (i  =  0;  newy  >=  y6;  ++i) 

{ 

lastyvalue  =  newy; 

newy  -=  step:  * 

if  (newv  >=  v6) 

{" 
#ifdef  DEBUG 

printf("%.2f  %.2f  %.2f\n",newx,newy,z5); 
#endif 

fprintf(fp,"%.2f  %.2f  %.2f\n",newx,newy.z5); 

} 

} 
newy  =  lastyvalue; 

miss  =  newy  -  y6; 
#ifdef  DEBUG 

printf("miss5  %.2f\n",miss); 
#endif 

start   rad  =  0; 
if  (miss  >  0) 

{ 

start  rad  =  miss/radS: 
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calx  =  rad3  *  cos(start_rad); 

caly  =  rad3  *  sinfstart    rad); 

newx  =  x6  -  (rado  -calx); 

newy  =  y6  -  caly; 
#ifdef  DEBUG 

printf("%.2f  %.2f  %.2f\n",newx,newy,z5); 
#endif 

fprintf(fp,"%.2f  %.2f  %.2f\n",newx,newy,z5); 

} 

perstep_rad  =  step/radS: 
for  (i  =  0;  newx  >=  x7:  -f-ri) 

{ 

start   rad  ——  perstep   rad: 

calx  =  rad3  *  cos(start   rad); 

caly  =  rad3  *  sinfstart    rad); 

iastxvalue  =  newx; 

iascyvalue  =  newy: 

newy  =  yb  -  caly: 

newx  =  x6  -  irad3  -  calx); 

if  (newx   >=  x7) 

*ifdef  DEBUG 

printf("%.2f  %.2f  %.2P  n".newx.newy,z5); 

=endif 

fprintf(fp,"%.2f  %.2f  %.2f\  n!'.newxTnewy;z5] 
} 
} 

newx  =  Iastxvalue; 

newy  =  lasty  value; 

miss  =  newx  -  x7; 
#ifdef  DEBUG 

pnntf("miss6  %.2f\n".miss);  « 

£endif 

if  (miss  >  0) 

{ 

newx  =  x7  -  miss; 
#ifdef  DEBUG 

pnntf("%.2f  %.2f  %.2f\n",newx,y8,z8); 
#endif 

fpnntf(fp,"%.2f  %.2f  %.2f\n",newx,y8,z8); 

} 

for  (i  =  0;  newx  >=  x8;  ++i) 

{ 

Iastxvalue  =  newx; 
newx  -=  step; 
if  (newx  >=  x8) 

{ 
#ifdef  DEBUG 


178 


printf("%.2f  %.2f  %.2f\n".newx,y8,z8); 
#endif 

fprintf(fp."%.2f  %.2f  %.2f\n",newx,y8.zJ 
} 
} 
newx  =  lastxvalue; 

miss  =  newx  -  x8; 
#ifdef  DEBUG 

printf("miss7  %.2f\n",miss): 
#endif 

fclose(fp); 
}    /*  main  * j 
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Road.h 


typedef  float  Dimension; 

^include  "gl.h" 
^include  "device. h" 
#include  "math.h" 
^include  "time.h" 
#include  "stdio.h" 

#deflne  SYSTEMORDER  4 
#deflne  MOUNTAIN       8 
*define  MOUNTAIN  1      9 
#define  SKY  10 

#define  FIELD  11 

#define  WARN  12 

^define  WALL  10 

^define  SLDEWALL        14 
^define  ROOF  15 

^define  WINDOW  16 

=define  CHMWALLl        17 
^define  CHMWALL2        18 
#define  SIDEROOF        19 
^define  FRAME  20 

#define  SIDEWALLl       21 
#define  WALLl  22 

#define  ROOFl  23 

#define  FRAMEl  24 

fdeflne  WINDOWl         25 

#define  MAXFUEL         3000.0 
#define  PI  3.14 
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K.      Makefile 


CFLAGS  =  -Zf 
SRCS  =  other. c  \ 

integrate. c  \ 

display. c  \ 

letter. c  \ 

help.c  \ 

find    subgoal.c 

circuit,  c 
carsimu.c 

OBJS  =  other. o 
integrate. o 
display. o 
heip.o 
tarsimu.o 
find    subgoai.o 
circuit. o 
letter. o 

'arsimu:  S(OBJS) 

cc  -o  carsimu  •'ifOB.lSl  -Zf  -Zg  -m 

SfOBJSr.  road.h 
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